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6-SEP-1984 10:30:50 LBASRTL.SRCIBASMATSCA.MAR; 1 a) 
LTITLE BASSMAT_SCA_MUL s Morris euttioty by © scaler 
“IDENT 7/1-025/ : File: BASMATSCA.MAR. Edit: DG1025 


MARAAARAAAALARLELELALLAASALELAL ESAS ESAS ERASER REESE EERE ERE E EEE E ES EEE ERE CREE aS 


ytd bl (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS A ght oe UNDER A LICENSE AND MAY BE USED AND COPIED 
IN 4 art DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
: OF THE E OF TWARE R 


COOOCOCOCOCOOoCoOooO 


® 
® 
® 
® 
t 
a 
® 
ee TH : ° 
® 

R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. : 
® 

THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
® 

® 

® 

* 

® 

® 

® 

® 


NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eseeeeeneeeeeeeeeeeeees 
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"FACILITY: BASIC code support 
ABSTRACT: 
This module multiplies each element of an input array by a scalar. 
ENVIRONMENT: User Mode, AST Reentrant 
AUTHOR: R. Will, CREATION DATE: 25-Jun-79 
MODIFIED BY: 


Briginat 
e correct entry fits to FLOOR. RW 24-JUN-79 
Change MTHSDFLOOR_R1 to MTHSDFLOOR_ R3 jes, O5-JUL- 1979 
ug with aized data ty es. RW” 17S Sept-79 
Redo scal HF Rid -Dec 
phen e MTHSDFLOOR_R3 to MTHSDINT_ R4. JBS 19-DEC-1979 
rate ee BA about multiply a double floating by a matrix with scale>0. 
Add support for byte, g and h floating. PLL 18-Sep-81 
More modifications for new data types. PLL 24-Sep-81 
Change sharee yon Ms references to G* RNH 5-Sep-81 
Substitute a pacro for the calls to the array gihoveel store 
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SOOOCoooooooooooooooooooooooooooooooooo 


oo 


bed nacre must handle g & sloating, 2 1 
If the scal ar s pi loat. eX, stack will ‘” Br gms correctly 
now. PLL 17-Nov-81 
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BASSMAT_SCA_MUL ; Matrix multiply by a scalar 15-SEP-1984 23:51: AX/VMS Ma v04-00 
we tt steed greee 1984 10:80.50 FAAGN TS cee aGatoAToca.man:1 2% 9). 


1-014 - vg B- a Be. Btaees expression in the FETCH and STORE macros. 


1-015 = Correct bug n BASSMAT_SC_MUL macro. arte scalar was not being 
stored if reals and integers were ofiree:2 PLL 15-Feb-82 
1-818 = Correct FETCH, STORE again. PLL 2 
1-01 Don't List macro expansions. PLL rb 2 
1-313 = Correct STORE_HFLOAT (index off of R4 before changing it). PLL 8-Apr-82 
1- Remove FETCH & ~ STORE macros; they are now located in macro 
Library MATRIXMAC., OLB. LB a os 2 
1-020 = Change own storage to stac age. LB 9-Jul-1982 
1-021 - DEST.» TO_D' ’ which call Aine inte R4 oust i and restore R4. 
(x wTlT bé floatin data types) PLL 1 
1-022 = added in some pound si one ere shey were "Tissine and causing 
memory management violati ys 7 o*z,' in vs where we were 
comparing against DSC$K MDL 6-0ct-1982 
Also allow gfloat presytts ; "to o Be ode ina double destination, 
and vice versa. 
1-023 = Use G* for ALL sevitenti “SBP 16-Nov-1982 
1-024 = Redefine stack offsets for the call to the STORE macro (the 
BSBW adds 4 to the stack). DG 11-Jan-1984 
1-025 = Redefine stack offset for ‘save_scalar’ - the correct offsets 
rom 1-024 are causing scale to be written over by save_scalar 
in the cases of grand and huge. DG 9-Apr-1984 
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BASSMAT_SCA_MUL ; Matrix multiply by a scalar 15-SEP-1984 251: AX/VMS - 
toon TIONS Prfobe TO:80.85 LONSNTe eeesBatecToca.mans1 © 


BECLARATIONS 6-8 4 ints 


> 


.SBTTL DECLARATIONS 
: INCLUDE FILES: 


| EXTERNAL DECLARATIONS: 


-DSABL GBL Prevent undeclared 
symbols from bein 
automatically global. 

-EXTRN BASSK_ARGDONMAT signalled if all 3 blocks 
not present in array desc 


or dimct = 
-EXTRN BASSK_DATTYPERR atonaties if dtype of array 
sn‘ e 


t word long float doub 


DOOCOCOCOCOCCOOCCOOCOCOOOOOOOOOOOOSooOo 
SOOOCOCCOCOOCOCOCOCOCOOOOOCOOCOOOOoOoOOoOoOOoOSoO - 


So 


Ss 


: EQUATED SYMBOLS: 


SOOOCOOCOSOOCOOOSSOOSCOSOOSOSOSCOSOSOOSCOSOSOOSOSOSSOOSSSOSOSCOSOOOOSOOOOOOOOOOOOOoOoOSo 
DONA NE WIN SO OO NAME WN 9 OD NAU EWN OC OD NAUE WN OS ODNAUS WN OOONOUE Ww 


WANA NIAAA NIIP DINIPININIDS 9 9 OP MF PFPOOCOOOOOOCOOOOCOCOOO0 OOO OMcCoCIODCDODCD 


0 
0 
0 
0 
0 
0 
0 
0 ; 
0 3 
0 3 
0 ; 
0 3 
-» 7 : 
5 : 
ee eEXTRN BASSS10_F AB RE ; array element store for byte 
ge ~-EXTRN BASSSTO_FA_W_R 3 array element store for word 
mis? «EXTRN BASSSTO_FA_L_R8 ; array element store for long 
re EXTRN BASSSTO_FA_F_R8 ; array element store - float 
9 EXTRN BAS$STO_FA_D_R8 ; array element store - double 
O-te ¥ -EXTRN BASSSTO_FA_G_R8 ; array element store - gfloat 
a. -EXTRN BASSSTO_FA_H_R8 ; array element store - hfloat 
000 1 eEXTRN BASSFET_FA_B_R8 3; array element fetch - byte 
000 1 eEXTRN BASSFET_FA_W_R8 ; array element fetch - word 
000 1 eEXTRN BASSFET_FA_L_R8 3 array element fetch - long 
000 =«(1 -EXTRN BASSFET_FA_F_R8 ; array element fetch - float 
000 1 e-EXTRN BASSFET_FA_D_R8 3 array element fetch - double 
it 1 ~-EXTRN BASSFET_FA_G_R8 3: array element fetch - gfloat 
000 1 -EXTRN BASSFET_FA_H RB 3 array element fetch - hfloat 
000 1 ~EXTRN BASSMAT_REDIA ; check if redimensioning of 
000 = ; dest array is necessary, if 
000 1 ; so, do it / 
000 1 -EXTRN BASSSSCALE_R1 : scale of the double precision 
000 1 -EXTRN BASSS$STOP 3; signal fatal errors 
000 1 EXTRN MTHSDINT RS 3 routine to integerize 
000 1 EXTRN BASSFETCA_BFA 
000 1 EXTRN BASSSTORE_BFA 
000 «(1 
t' 126 ; 
000 1 ; MACROS: 
000 199° 
$00 1350 ; SBASSMAT_SC_MUL see below, defines entire scalar aul tiely algorithm 
000 131; FETCH fetch an element from an array (found in macro 
000 132; Library MATRIXMAC.OLB) 
000 133; STORE store an element into an array (found in macro 
000 134; Library MATRIXMAC.OLB) 
000 «(1 
1 
1 
1 
1 


oo 
oo 


—BASSMAT_SCA_MUL ; Matrix multiply by a scalar 15-SEP-1984 23:51: AX/VMS Macro V04-00 
beat cans: BECLARATIONS wt Son: 3-$fp= 1980 13:30:90 LBASRTL. SREIBASMATSCA.MAR: 1 
00000 149 tower pnd = 0 ; stack offset for temp 
4 14 lower_bnd 4 i stack offset for temp 
8 126 upper_bndi = 8 ; stack offset for soup 
8 C 14 save Scalar = 12 ; Stack offset for scalar 
1 144 scale = ; offset from R4 for scale 
444 145 value_desc = 40 3 output descriptor 
148 str_len = 3 length field within desc 
O002A 0000 14 dtype = 4 ; data type field in desc 
| 0000028 4 148 class = ; class field within desc 
0 4 0 149 pointer = 44 ; pointer to data in desc 
0000 000 150 ata = 48 ; data 
aid 8 8 13) dsc$l_l1_1 = 24 ; desc offset if 1 sub 
1C 1 § dsc$l_ul_1 = 28 3; desc offset if 1 sub 
0000001C 0000 15 dsc$l_l1_2 = 28 ; desc offset if 2 sub 
44444 0 4 154 dsc$l_ul_2 = 32 ; desc offset if 2 sub 
0000024 0000 155 dsc$l_l2_2 = 36 ; desc offset if 2 sub 
00000028 4 156 dsc$l_u2_2 = 40 ; desc offset if 2 sub 
00 157 
0000 158 ; 
0000 159 ; OWN STORAGE: 
0000 160 ; 
0000 161 
0000 19¢ 
0000 163; 
44 198 ; PSECT DECLARATIONS: 
00000000 166 © -PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, - 
44 +4 EXE, RD, NOWRT, LONG 


Nn 1 | 
multiply by a scalar 15-SEP-1984 23:51: AX/VMS Macro V04-00 P 
“= arse TSBs Fa:8h88 HAKSHTS Barts vets Ol many em 0d) 


BASSMAT_SCA_MUL ; Matrix 
1-025 BECLARAT 
170 ;+ 
09 171 ; This macro contains the jooping mechanism for orfeeecne all elements of 
0 \7¢ ; an array. It also contains all the logic for all the combinations of data 
8 175 ; types and scaling. A macro is used to make it easy to maintain the parallel 
9 Vr ; code for all the different combinations of data types. 
33 178 MACRO S$BASSMAT_SC_MUL src_dtype, scalar_dtype ; scalar mult algorithm 
0 178 ;+ 
0000 155 ; Decide what mode the multiplication must be done in and store the scalar 
000 180 ; in that data type. If the data types of the source array and the scalar 
| 4 181 ; are the same, store the scalar as is. Else convert the scalar to a common 
0 1 § ; type and store. 
| 6000 184° 
000 185 IF IDN scalar_dtype, src_dtype ; src array and scalar are 
000 16 ;__same data type 
000 \3 MOV'src_dtype’ @scalar(AP), save_scalar(SP) ; save the scalar as is 
0000 188 s i src arrays different dtype 
0000 189 IF IDN src_dtype, H ; source is hfloat 
0000 190 CVT'scalar_dtype'H @scalar(AP), save_scalar(SP) ; cvt scalar to 
444 13) _ ; hfloat & save 
0000 198 IF IDN scalar_dtype, H ; scalar is hfloat 
44 139 wre @scalar(AP), save_scalar(SP) ; save the scalar 
| 0000 196 olf IDN src _dtype, G 3; source is gfloat 
0000 197 IF DIF scalar_dtype, D 3; don't mix gfloat & dbl 
0000 198 CVT'scalar_dtype'G ascalar(AP), save_scalar(SP) ; cvt scalar to 
$000 200 LFF . EF isady Peivas 
0000 01 CVT'scalar_dtype'H @scalar(AP), save_scalar(SP) ; promote to hfloat 
o000 0¢ ae :” if gfloat & dbl | 
000 04 LFF 
0000 205 IF IDN scalar_dtype, G :; scalar is gfloat 
Bebe 06 IF | src_dtype, D ; don't mix gfloat & dbl 
44 Be ~e @scalar(AP), save_scalar(SP) 3; save the scalar 
0000 09 CVTGH a@scalar(AP), save_scalar(SP) ; promote to hfloat if 
| 44 19 cune ; gfloat & dbl 
$000 \¢ FF 
B08 1 IF IDN src_dtype, D ; source is double 
00 14 CVT'scalar_dtype'D @scalar(AP), save_scalar(SP) ; cvt scalar to 
000 15 ; double & save 
000 16 FF 3 1st array not double 
000 17 IF IDN scalar_dtype, D : if scalar double 
| 000 + MOVD @scalar(AP), save_scalar(SP) 3 save the scalar 
000 21 LFF : no double operands try float 
0000 0 If IDN src_dtype, F : is src array float 
000 1 CvT'scalar_dtype'F @scalar(AP), seve _scatarts?) ; make scalar float 
00 § ~IFF ; Ist array not float 
000 IF IDN scalar_dtype, F ; is scalar float 
00 4 MOVE @scalar(AP), save_scalar(SP) 3 yes-store scalar as is 
00 5 LFF ; no double or float, try long 
000 6 lf IDN src_dtype, L ; is sec array long 


piles pa 
1-025 


1 


o3 


96¢ 10:30:50 


AP), save_scalar(SP) 


scalar(AP), sav 


scalar_dtype, B 
AP), save_scalar (SP) 


ultiply by a scalar 15-SEP-1 
* in tte 6-SEP=1 
Cy}, seater étype"l 
“IF 1DN scalar_dtype, L 
wy ascalar( 
VIF IDN src_dtype 
O77 beeen At rpe G a 
wIF IDN scalar_dtype, W 
wy @scalar(AP), save_scalar(SP) 
TIF ION src_dtype, B 
oy], seoterctape 8 a 
TIF IDN 
ett ascalar( 
BRW ERR_DATTYPERR 
~ENDC 
~ENDC 
~ENDC 
~ENDC 
ENDC 
-ENDC 
ENDC 
ENDC 
~ENDC 
-ENDC 
ENDC 
~ENDC 
~ENDC 
~ENDC 
~ENDC 


3; initialize 


LOOP_1ST_SUB'sca 
RovL 


RIPININIPSPINININIMININIPIPYPINININININININININININIANIPINININININININININYININYIAININININININPYINPIPINIPVAIPUNINPINYININPY 


©9000009 SI NIN NINN NI NNO AOA AA AAA OMIM RRR EW 
WR CO DONAUSWN OOO NAUE WN SO OONAU EWN OODNAUEWN OOO NAUEWROOON 


MOVL 


lar_dt 


lower 


b 


; Loop through all the rows. 
on the stack. 


e'src_d 
nd2 (SPT. 


; bound is initialized in R11. 


AX/VMS Macro V04-00 
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; scalar is long 
; save scalar as is 


source is word 
; scalar is word — 
3; save scalar as is 


; source is byte 
e_scalar(SP) ; make scalar 


; scalar is byte | 
; save scalar as is 


re 


@scalar(AP), save_scalar(SP) ; make scalar long 


Scaiar(AP), save_scalar(SP) ; make scalar word 


hyte 


3 none of the above - unsupported 


Row and column upper and lower bounds have been 


+ 
Get the data from source array 


AT 


LOOP_2ND_SUB‘scalar_dtype'src_dtype’: 


src_matrix(AP), RO 


3 R11 has 2nd lower bound 


; Loop through all the elements (columns) of the current row. Column lower 
: Column upper bound is on the stack. 

; Distinguish array by da*- type so that the correct fetch routine can 

3 retrieve the data, the correct conversion can be done and the correct 

3; store routine can be called. 


; pointer to array dest 


ee | 
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ha BECLARATIONS axSEp-1984 10,30:50 BASRTL. SREIBASMATSCALMAR: 1 29 
000 4 MOVL Lower_bndi(SP), R1 3; current row 
| 8 Be MOVL R11, i 3 current col 
| 00 6 FETCH ‘src _dtype' i fetch data from src array 
$0038 
0000 8 ;+ 
4 89 ; Multiply the source by the scalar. 
000 90 ; If the data types of source array and scalar are the same, do the arithmetic 
464 91 ; in that data type. Else convert the src data to the type that scalar was 
000 3 ; stored in above, and mu +e 
0000 93 ; Scaling is needed if the scalar or the src array or both is 
0000 94 ; double. 
$308 95 :- 
000 36 
0000 9 MOVL SP, R4 ; point to stack temps for 
0000 98 ; JSB to storage routine 
0000 99 IF IDN scalar_dtype, src dtype ; src and scalar are same dtype 
0000 00 MUL “src _dtype'e save_scalar(SP), RO ; multiply by the scalar 
0000 30: IF ID scalar_dtype, D : if both are double 
0000 $08 DIVD2 scale(SP), RO 3; get rid of extra scale 
0000 30 CMPD scale(SP), #i : if scale factor is 0 
0000 304 BEQL ; don't integerize 
0000 305 JSB G*MTHSDINT_R4 ; else, integerize 
0000 306 MOVL SP, R4 : We modified R4 in the above 
0000 307 ; JSB, so reload R4. 
0000 308 ~ END 2 ae 
0000 309 1$ BSBw DEST_CASE_'src_dtype’ ; store in the destination 
0000 310 LFF : src & scalar different dtype 
0000 311 IF IDN src dtype. H ; source is hfloat 
0000 312 MULH2 save_scalartSP), RO ; scalar was saved hfloat 
464 a7 BSBw DEST_CASE_H 3 cvt to dest type 
0000 315 IF IDN scalar_dtype, H 3; scalar is hfloat 
0000 316 CVT'src_dtype'H RO, ; make src hfloat 
0000 317 MULH2 save_scalar(SP), RO 3 compute product 
0000 318 BSBW DEST_CASE_H 3 cvt to dest type 
0000 319 LFF 
0000 320 IF IDN src_dtype, G ; source is gfloat 
0000 321 IF DIF scalar dtype. D 3 don't mix gfloat & dbl 
0000 $56 MULG2 save_scalar(SPY, ; mult, scalar is gfloat 
0000 35 BSBW DEST_CASE_G 3; cvt to dest type 
0000 4 LFF ; scalar dtype is dbl 
0000 25 3; scalar was promoted to hfloat 
0000 26 CVTGH RO, RO 3 promote src to hfloat 
4464 sf MULH2 save_scalar(SP), RO 3; compute product 
0 8 BSBW DEST-CASE_H : cvt to dest type 
0000 $3 -ENDC 
4 0 LFF 
00 Ee IF IDN scalar_dtype, G ; scalar is gfloat 
0000 335 IF DIF src_dtype, D 3; don't mix gfloat & dbl 
0000 3 aut gre.etyee 6 RO, : make src gfloat 
0000 $e MULG save_scalar(SP), RO 3 compute product 
0000 5 BSBW DEST_CASE_ 3 cvt to dest type 
000 3 FF 3 src dtype is dbl 
bb5 : scalar was promoted to hfloat 
38 CVTDH =RO, RO 3; cvt src to hfloat 
0000 39 MULH2 save_scalar(SP), RO ; compute product 
0000 40 BSBW DEST_CASE_H 3; cvt to dest type 
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mitts BECLARATIONS b7$eb=1 98s 70:30:56 Feasnne.eaeigagmarsca.man;1 22° (8) 
0 41 -ENDC 
88 ts LFF 
Bp 4 olf IDN src_dtype, D ; source is double => 
0 44 ; scalar has been saved double 
000 45 MULD2 save_scalar(SP), RO ; multiply, don't need to descale 
B08 rf 3 because scalar wasn't scaled 
00 4 ; don't need to integerize 
000 48 ; becausue scalar was Wor L 
000 49 BSBW DEST_CASE_D ; cvrt double product to dest type 
0000 50 LFF ; Ist array not double 
0000 2] IF IDN scalar_dtype, D ; is scalar double 
8808 ¢ CvT'src_dtype'D RO, RO 3; yes, make src double, is L or W 
000 5 ; so don't need integerize, don;t 
0000 54 ; scale so don't need to descale 
0000 55 MULD2 save _scalar(SP), RO 3; compute the product 
0000 2$ SBW DEST_CASE_D 3; cvrt double product to dest type 
0000 5 LFF : no double operands try float 
it 58 IF IDN src_dtype, F ; src element float => 
000 59 ; scalar has been stored float 
0000 360 MULF2 save_scalar(SP), RO ; multiply 
0000 361 SBW DEST_CASE_F 3; cvrt float product to dest type 
0000 306 LFF 3 Ist array not float 
44 6 IF IDN scalar_dtype, F :; is scalar float 
000 $e CVT'src_dtype'F RO, 3 yes-make src float 
0000 65 MULF2 save_scalar(SP), RO ; multiply 
0000 366 BSBW DEST_CASE_F ; cvrt float product to dest type 
0000 367 LFF ; no double or float, try long 
0000 368 IF IDN src dt ype. L ; src array long => scalar long 
0000 69 MULL2 save_scalartSP), RO : sultioly 
4404 A ar DEST_CASE_L ; convrt long product to dest type 
0000 iG IF IDN scalar_dtype, L :; scalar is long 
0000 7 CVT'src_dtype'L RO, RO 3 cvt src to long 
0000 74 MULL2 save_scalar(SP), RO 3 sul tety 
sit ? 7 DEST_CASE_L 3; convrt long product to dest type 
0000 377 IF IDN src dt ype. W : source is word 
0000 378 MULW2 save_scalarTSP), RO ; mult, scalar is word 
0000 3) BSBW DEST_CASE_W i; cvt to dest type 
0000 80 LFF 
0000 381 IF ION scalar_dtype, W ; scalar is word 
0000 386 CVT'src_dtype'wW RO, RO 3; cvt src to word 
000 8 MULW2 “save_scalar(SP), RO 3 compute product 
it S BSBW DEST_CASE_W 3; cvt to dest type 
0 5 o LFF 
0000 86 IF IDN src dtype B : scalar is byte 
0000 87 MULB2 save_scalarTSP), RO ; mult, src is byte 
44 3 oy DEST_CASE_B 3: cvt to dest type 
st 90 put afsetyee'® RO, RO : only case left 
00 91 MULB save_scalar(SP), RO 3; compute product 
00 3¢ BSBW DEST-CASE_B 
00 9 -ENDC 
00 94 eENDC 
0 95 -ENDC 
. 96 -ENDC 
00 97 -ENDC 


—— 
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BECLARATIONS BREE 188s 73:80:98 HAXENMS Sacra VOk=OO  aan., Page (2, 
9 -ENDC 
009 395 “ENDS 
400 -ENDC 
$ 401 eENDC 
4 ¢ eENODC 
00 $e -ENDC 
000 404 eENDC 
000 405 -ENDC 
B08 406 -ENDC 
000 rh t4 
000 408 ;+ 
it re ; Product has now been stored in the destination array. Continue looping 
0000 411 
0000 At INCL R11 i get next column 
0000 41 CMPL R11, R9 ; see if last column done 
0000 414 BGTR 3$ 
444 ai7 BRW LOOP_2ND_SUB'scalar_dtype'src_dtype’ ; no, continue inner loop 
0000 419 34 
0000 418 : Have completed entire row. See if it was the last row. If not, 
0000 419 ; _cont inue with next row. 
0000 420 ;- 
0000 421 
0000 $$§ 3$: INCL Lower _bnd1 (SP) 3 get next row 
si tsi Hae Lower_bndi(SP), upper_bnd1(SP) ; see if last row done 
44 : 2 BRW LOOP_1ST_SUB'scalar_dtype'src_dtype’ ; no, continue outer loop 
0000 427 5$: RET 3; yes, finished 
0000 428 
0000 429 ~ENDM 


L 


a 
o 
_ 
- 


a 
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element 6-SEP-1984 BASRTL.SRCJBASMATSCA.MAR; 1 (4) 
* ~SBTTL BASSMAT_SCA_MUL = Multiply each element of an array by scalar 
FUNCTIONAL DESCRIPTION: 


This routine multiplies each element of an input matrix by a scalar, 

and stores it in the output matrix. The algorithm is the same for all 
supported BASIC data types. In order to keep the code for all 

data type combinations the same and to simplify the reading, the code 

has been done as a macro, which all the data types use varying only 

the letter (B, W, L, F, 6, H) in multiplying by the scalar, converting fr 
source to dest type. and calling the array store routines. 
The scalar must be the same datatype as the source matrix. 


CALLING SEQUENCE: 


CALL BASSMAT_SCA_MUL (scalar.rz.r, scalar_dtype.rlu.v, 
srcmatrix.rx.da, destmatrix.wx.da) 


x 
w 

2 
>c 


a ee 
— 


lin 


COOCoooooooooo 


COOCOOoCQOOCOOOOOOoOoOooO > 


COOoooooooooooooo 


INPUT PARAMETERS: 
scalar = 4 i pointer to scalar of type specified in next parameter 
scalar_dtype = 8 ; VAX standard dtype code for data type of scalar 
src_matrix = 12 ; pointer to descriptor for source matrix 
IMPLICIT INPUTS: 
scale from callers BASIC frame if data type of either matrix is double 
OUTPUT PARAMETERS: 
dest_matrix = 16 3; pointer to descriptor for destination matrix 
IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


NONE 

SIDE EFFECTS: 
This routine calls the BASIC matrix fetch, store, and redimensioning 
routines, and may cause any of their errors to be signalled. It also 


may signal any of the errors Listed in the externals area. — 
It may also cause the destination array to have different dimensions. 


VSP EB BS ES BS SB AAAI = 


PUNO OONOA UE UW - OOONOUS 


SOOOoCoOoOoCoOoOoCoOoOoOooOoOoOoOOOOOOOSOOOoOO 
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00000010 


Sete Se Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge 


4FFC -ENTRY BASSMAT_SCA_MUL, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,1V> 


+ 


exetstie USAGE 

RO - R& destroyed by store routines 

R upper bound for 2nd subscript : 

R10 pointer to destination array descriptor 


Foy at at at at at at 2 a UM ARAAMUUUUUUUMUAUMUAM HMM 
NOONE WR 0 OONO UE WN OC ODNAUEWNODOONAU 


GOO 090009090008 INI NI NINES SIN NIO AAA AAAOAOAOMIIUNN 
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1-025 BASSMAT SCA_MUL Yo hultipty each elenent Paes ety 19:30:50 EBASRTL. SRCIGASMATSCA.MAR: 1  ) | 
| 0 ibs ; R11 current value of 2nd subscript 
490 ° 
491 ;+ | 
138 ; Put routine arguments into registers for ease of use. 
5 $32 ; If block 2 of array descriptor (multipliers) is not present then error. 
09 495 ° 
52 OC AC 00 00 49 MOVL src_matrix(AP), R2 ; ptr to array descr in R2 
23 OA A2 OF €E1 it 437 BBC #0SCSV_FL_BOUNDS, DSC$B_AFLAGS(RD)> ERR_ARGDOKMAT ‘ 
3 ex oc no 
43 299 3 present in descriptor 
5A 10 AC 00 B 00 MOVL dest_matrix(AP), R10 ; ptr to dest array descriptor 
50 OC AD DO S00F 01 MOVL SFSL~SAVE_FP(FPS, RO ; pass FP to get scale 
00000000'GF 16 0013 be JSB G*BASSSSCALE_R1 i get scale in RO & R1 
019 50 ; call a BLISS routine because 
019 504 ; the frame offsets are only 
019 505 3; defined for BLISS 
7E 7C 0019 288 CLRQ -(SP) i; Save space for VALUE_DESC 
7E 7C 0018 07 CLRQ -(SP) Z AND 
7E 7C OO01D 508 CLRQ -(SP) 3; DATA 
. ae £2. 3h 44 MOVD RO, -(SP) 3 save the scale 
7E 7C 0022 51 CLRQ -(§P) 3; save place for scalar on stack 
ae + 2 ae : CLRQ -(SP) 3 scalar may be hfloat 
0026 218 3; Set up Limits for looping through all elements 
Bb HE 
01 OB A2 91 0026 218 CMPB DSC$B_DIMCT(R2), #1 ; determine # of subscripts 
OF 13 OO2A 51 BEQLU INIT_ONE_SUB : 1 sub, go init 
2B «1A «O002C 518 BGTRU INIT_TWO_SUBS : >=2 subs, go init 
3p : ah 4 ; 0 subs, fall into error proc 
002E 521 ERR_ARGDONMAT: 
00000000'8F oD OO02E 5 ; PUSHL #BAS$K_ARGDONMAT ; signal error, 0 for dimct 
00000000'GF 01 FB 0034 5 CALLS #1, G*BASS$STOP 3 or block 2 or 3 absent 
ei 
Boe 526 ; There is only 1 subscript. Redimension the destination array. 
038 527 ; Make both upper and lower bound for 2nd 
0038 528 ; subscript a 1. A second subscript will be passed to and ignored by the 
038 529; store routine. Put bounds for Ist subscript on stack. 
Oe 31 
0 53 INIT_ONE_ SUB: 
1C A2 DD PUSHL dsc $t_ul_1(R2) 3 get bound for redim 
5A DD 534 PUSHL i pointer to dest array desc 
00000000'GF 0 FB 4 5 CALLS #2, G*BASSMAT_REDIM : redimension the dest 
1c A DD 4 § PUSHL gec$t vi (Rey ; Ist upper bound 
18 A DD 4A PUSHL sc$l_l1_1(R2) ; 1st lower bound 
8 14 4D 2 8 BGTR ; not 0 or neg, do 2nd sub 
6E 1 00 4f 3 MOVL #1, (SP) ; don't alter col 
1 OD ¢ 40 1$: PUSHL #1 3 dummy ang upper bound 
59 1 00 4 41 MOVL #1, R9 ; dummy end lower bound 
6 11 37 4¢ BRB SEPARATE_DTYPES ; go loop 
59 44 3+ 
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1-025 AASSHAT SCACNUL ’="Muttipty each element ‘eqseP-19b6 10:90:50 FBASKTE Sar doASaATocA.mar:1 2% 12, | 
23 45 ; There are 2 subscripts. (Check and redimension the destination array if | 
9 46 ; necessary. Put the upeer bound for both subscripts on the 
9 47 ; stack and make sure that the layer bound for both subscripts will start | 
9 ‘3 j at 1 (do not alter row or col 0) 
23g 
59 29 INIT_TWO_ SUBS: 
38 Ag DD 59 26 PUSHL dsc$t ugg (Re) ; 2nd upper bound 
OA DD 005C 5 PUSHL ds¢Sl_u _e(R2) ; 1st upper bound 
3 DD SF 54 PUSHL H 3; dest array pointer 
00000000 ' GF 3 FB 0061 55 CALLS #3, G*BASSMAT_REDIM : redimension destination 
A DD 4 2$ PUSHL gsc$t ul g (Rey 3 1st upper bound 
CA DD 68 PUSHL dsc$l-L1_2(R2) 4 : 1st lower bound 
14 3 58 BGTR 1$ a 3 not row 0 or neg. do cols 
6E 1 oO 00 59 MOVL #i, (SP) 3 start with row 
59 8 & DO 007 60 1$: MOVL dsc $t ugg (Re). RO : 2nd upper bound 
4A DD 007 61 PUSHL dsc$l_l2_2(R2) ; end lower bound 
0 14 OO7A 66 BGTR SEPARATE_DTYPES : not col 0 or neg. go loop 
6— 01 400 OO07C 6 MOVL #i, (SP) 3 start with col 
aE 
34d 564 ; Algorithm now differs according to source array data types 
GO7F 568 * 
007F 282 SEPARATE _DTYPES: 
05 06 02 A2 ef 007F 3 0 TASEB DSC$B_DTYPE(R2), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D - DSC$K_DTYPE_6> 
0037" 0084 71 2$: WORD BYTE-2$ ; code for byte dtype 
07E6* 0086 278 «WORD WORD-2$ ; code for word dtype 
OF92° 0088 57 -WORD LONG-2$ ; code for long dtype 
002A" OOBA 574 -WORD ERR_DATTYPERR-2$ 3: quad not supported 
173B8' 008C 575 -WORD FLOAT-2$ 3 code for float dtype 
1EE1" 443 278 -WORD DOUBLE-2$ ; code for double dtype 
0090 as ;+ 
+948 375 : G and H floating fall outside the range of the CASEB statement. 
0090 581 ° 
18 Oz ‘ % Baoe 286 once Q5C8S_OTHPE (RE), #DSCSK_DTYPE_G 
2682 831 0096 eee BRW GFLOAT 
1c (O02 A 91 099 86 3$ CMB DSC$B_DTYPE(R2), #DSCS$K_DTYPE_H 
2650 31 O9F 89 BRW HFLOAT 
18 02 A2 91 bas 0 4$ CMPB DSCSB_DTYPE(R2), #DSCSK_DTYPE_DSC 
06 18 ag 91 BNEQ ERR DATTYPERR 
52 O4A D A 3 MOVL 4(R2), R ; R2 <-- addr of descriptor 
D111 . 3 BRB SEPARATE _DTYPES ; CASE again for dtype in desc 
OAE 595 ERR_DATTYPERR: 
00000000'8F DD Boat 9 PUSHL #BASSK_DATTYPERR ; Signal error, unsupported 
00000000'GF 01 FB 00B4 9 CALLS #1, G*BASS$SSTOP 3 dtype in array desc 
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BRW ERR_DATTYPERR 3 unsupported dtype 


Now type of source array and scalar are known. Use the macro to 
; generate the code for each case 


Setees 
+n 


B 600 ;+ 
Oss si) : Source array is a byte array. Now differentiate on the scalar type. 
BB 603° 
) 0 BB 604 gxre: MOVL AP, RS 
05 06 OB8A F 605 5$: CASEB = scalar deype Rs). WOSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCSK_DTYPE_B> 
02D° O0C 6 § 1$: «WORD BYTE_TO_BYTE-1$ ; code for byte dtype 
138° O0C 6 «WORD BYTE_TO_WORD-1$ ; code for word dtype 
24C* 00C 6 3 «WORD BYTE TO_LONG-1$ ; code for long dtype 
free BC 60 - WOR ERR_BATTYPERR-1$ i quad not supported 
035D° O00CB 919 «WORD BYTE_TO_FLOAT-1$ ; code for float dtype 
046E" bee ele -WORD BYTE_TO_DOUBLE-1$ ; code for double dtype 
OCF 615 ;+ 
it 614 ; Check for j and h floating separately, since they fall outside the range 
Boer 615 ; of the CASEB. 
Ook BIk 
1B «6408 a 3 boss 213 oe gpolorctypeths). #DSCSK_DTYPE_G 
056A 831 ite y BRW BYTE_TO_GFLOAT 
1c) = O88 a 9 it ° § 2$ eg ggeter_dtype(R5), #DSCSK_DTYPE_H 
0675 = 31 4444 ? 3 6Rw BYTE_TO_HFLOAT 
18 Be ie OOES Soke 
55 OC AS 8 QOE7 628 MOVL SRC_MATRIX(RS), RS 
D1 8611 OOEB 629 BRB 5$ 
3 D 630 
see 
BS 0 838 
0 634 
OOFO 635 
OOFO 636 
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scalar_dtype(R5), #DSCS$K_DTYPE_DSC | 
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O1FE 641 BYTE_TO_WORD:  $BASSMAT_SC_MUL B, W 
O30F 642 
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04 30 G47 BYTE_TOLFLOAT: SBASSMAT_SC_MUL B, F 
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0756 656 BYTE_TO_HFLOAT: SBASSMAT_SC_MUL B, H 


BASSMAT_SCA_MUL ; Matrix multiply by a scalar 15-SEP-1984 23:51: AX/VMS Macro V04-00 Page 21 
1-025 BASSMAT_SCA_MUL ve huttipty each element a-SEp=1 984 10:30:96 UBASRTL. SRE IBASMATSCA.MAR: 1 ’ (5) 


6A 658 ;+ 
an £35 ; Source array is a word array. Now differentiate on the scalar type. 
6A 661° 
55 3 0 6A 666 YORO: MOVL AP, RS 
05 06 O8A : D 663 5$: CASEB scalar dtype(R5), #DSCSK_DTYPE_B, #<DSC$K_DTYPE_D = DSC$K_DTYPE_B> 
02D" 2 664 18: «WORD WORD _TO_BYTE-1$ ; code for byte dtype 
1 3. 74 = 665 -WORD WORD _TO_WORD-1$ ; code for word dtype 
49° 6 096 ~ WOR WORD _TO LONG-1$ ; code for long dtype 
F83C 7 66 «WORD ERR_BATTYPERR-1$ i quad not supported 
035A" 087A 668 WORD WORB_TO_FLOAT-1$ ; code for float dtype 
046B' as 668 -WORD WORD_TO_DOUBLE-1$ : code for double dtype 
O87E 671 ;+ 
087E or¢ ; Check for g and h floating separately, since they fall outside the range 
O87E 673; of the CASEB statement. 
O87E 674 ;:- 
O87E 675 
18 O08 AS 91 OB87E 676 CMPB scalar_dtype(R5), #DSCSK_DTYPE_G 
03 12 0882 677 BNEQ 
0567 3831 ste ore BRW WORD_TO_GFLOAT 
1¢ O08 AS 91 0887 680 2$ CMPB scalar_dtype(R5), #DSCSK_DTYPE_H 
03 12 #0888 681 BNEQ 
0672 31 pase ret BRW WORD_TO_HFLOAT 
18 O08 AS 91 0890 684 3$ CMPB scalar_dtype(R5), #DSC$K_DTYPE_DSC 
06 12 0894 685 BNEQ 
55 OC AS DO 0896 686 MOVL SRC_MATRIX(RS), RS 
D1 8611 089A 687 BRB 5$ 
089C oss 
F8O0F 31 O89C 689 4$: BRW ERR_DATTYPERR 3 unsupported dtype 
O89F 690 
O89F 691 ;+ 
O89F 236 : Now type of source array and scalar are known. Use the macro to 
O89F 693 ; generate the code for each case 
O89F 694 ;:- 
O89F 695 
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101 18 3+ 
! 18 at ; Source array is a longword array. Now differentiate on the scalar type 
1016 721° 
55 Ht 0 1 i 7 ¢ LONG: MOVL AP, R5 
05 06 OBA F 101 7 : CASEB- scalar devpe (hs). MDSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCSK_DTYPE_B> 
002D' 101 724 1$: «WORD LONG _TO_BYTE-1$ ; code for byte dtype 
83 is 725 -WOR LONG_TO_WORD-1$ ; code for word dtype 
49° 1 7 § . ONG. TO_LONG-1$ 3; tode for long dtype 
F 2 1024 7 ° ERR_BATTYPERR-1$ 3 quad not supported 
8 57" 1 $ 728 ° LONG_TO_FLOAT-1$ 3 code for float dtype 
468° ! . i 3 WORD LONG_TO_DOUBLE-1$ :; code for double dtype 
102A 731 ;+ 
18 A 7 § 3; Check for g and h floating separately, since they fall outside the range 
102A 733 ; of the CASEB statement. 
103, 38° 
18 O8 AS 91 102A 7 § CMPB calar_dtype(R5), #DSCSK_DTYPE_G 
03 \¢ 10 7 BNEQ $ 
0564 3 103 £38 BRw LONG_TO_GFLOAT 
1¢ O08 AS) 691 «1033 «740 28 CMPB calar_dtype(R5), #DSCSK_DTYPE_H 
03 12 1037 741 BNEQ 
O66F 31 193? re BRW LONG_TO_HFLOAT 
18 OB AS 91 103C 744 38 CMPB sr scalar_dtype(R5), #DSCSK_DTYPE_DSC 
06 12 1040 745 BNEQ 
55 OC AS DO 1042 rg MOVL SRC_MATRIX(RS), R5 
D1 Oso 1368 ee BRB 5$ 
F063) «431 1048 749 4$ BRW ERR_DATTYPERR 3 unsupported dtype 
1048 750 
1048 751 
1048 P36 i+ 
1048 7535 ; Now type of source array and scalar are known. Use the macro to 
1048 754 ; generate the code for each case 
1048 755 ;- 
1048 756 
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178F :+ 
rer : ; Source array is a floating array. Now differentiate on the scalar type 
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FLOAT: MOVL A 
58: 
1$: 


P, 

CASEB = scal eats #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCSK_DTYPE_B> 
«WORD FLOAT_T TE-1$ ; code for byte dtype 

«WORD FLOAT_TO_WORD-1$ ; code for word dtype 

«WORD FLOAT-TO-LONG-1$ ; code for long dtype 

-WORD ERR_DATTYPERR-1$ 3 quad not supported 

-WORD FLOAT_TO_FLOAT-1$ ; code for float dtype 

«WORD FLOAT TO_DOUBL-1$ ; code for double dtype 


7+ 
: Check for g and h floating separately, since they fall outside the range 
: of the CASEB statement. 


CMPB scalar_dtype(R5), #DSCSK_DTYPE_G 


BRW FLOAT_TO_GFLOA 
2s: CMPB calar_dtype(R5), #DSC$K_DTYPE_H 
BNEQ 


BRW FLOAT_TO_HFLOA 
scalar_dtype(R5), 


MOVL  SRC_MATRIX(RS), RS 
BRB 5$ 


ERR_DATTYPERR 


#DSC$K_DTYPE_DSC 


3 unsupported dtype 


Now type of source array and scalar are known. Use the macro to 
9 


enerate the code for each case 


ee 


eae Soy MUL 3 


4 
; Matrix multiply b calar 15-SEP- 
basSmat SCA tue ‘. huttipty e each element 6-SEP- 
17F4 18 FLOAT_TO_ BYTE: S$BASSMAT_SC_MUL 
1563 £8 ed eb Ms 


=198e 19:80:56 


F, B 


AX/ 
BAS 


TL. SREIBASR 


ATSEA MAR: 1 


row Ht 


-——_—_- ----- 


BASSBAT SCA_MUL 


I 4 
SEhAT“SCALAUL.”~"Muttipty each element ‘6-sEP-i9ee 10:80:50 | 


1903 821 FLOAT.TO.WORD: SBASSMAT_SC_MUL F, 
1A 2 


AX/VMS M 


BASRTL. SRE 


o V04-00 P 
JBASHATSCA.MAR; 1 


J 4 
#338 igerren baSSHAT SCARUL = hut elols cont element yaa ets 4 3 30; 95 YBASRIL. gh “SRE 1BAS LOA TSCALMAR: 1 rage “3 


1A10 4 FLOAT_TO_LONG: SBASSMAT_SC_MUL F, L 
Tete 835 FtOAT=10. _— 


BASSMAT _SCA_MUL 
1-02 


Matrix multiply b 
re tultiols 2 


BASSMATS SCA_MU 


K 4 
alar 15-SEP-19 
y each element 6-SEP-19 


1B1E 827 FLOAT_TO_FLOAT: SBASSMAT_SC_MUL F, 


1¢2¢ 


84 23:51:02 VAX/VMS Macro V04-00 P 
84 10:30:50 BASRTL. SRCIBASMATSCA. RAR; 1 
F 


BASSHAT_SCA_MUL 


basta 


1 
1 


trix multi 
T_SCA_ 


hut” oe AGH ee each 


15-SEP=1 
element 6-SEP-1 


abc 10:80:56 


C2C B30 FLOAT.TO_DOUBL: SBASSMAT_SC_MUL F, D 


AX/VMS 
BASRTL. 


act v04-00 
CJBASMATSCA.MAR; 1 


Page 42, 


: AT staChOL hutristys each element aes tt 7 15; 3); 9 Yenshti ee 


1D3D 
1€51 


833 FLOAT_TO_GFLOA: SBASSMAT_SC_MUL F, 


j 
| 


N 4 

BASSMAT_SCA_MUL ; Matrix ey tiety by a scalar 15-SEP-1984 $3331:08 artery Macro v04-00 Page 44 — 
1-025 BASSMAT_SCA_MU - Multiply each element 6-SEP-1984 10:30: BASRTL.SRCIBASMATSCA.MAR;1 (5) | 
1E51 836 FLOAT_TO_HFLOA: SBASSMAT_SC_MUL F, H | 


B 5 
BASSMAT_SCA_MUL ; Matrix multiply by a scalar 15-SEP-1984 23:51: AX/VMS Macro V04-00 Page 4 
1-025 GASSNAT SCA-MUL ”~ Multinty cach element e-sep-19B6 10:30:56 TBAGKTE eRe IBAMMATSCA.maR:1 29° 4 
1F6 8 ;+ 
183 3 ; Source array is a double array. Now differentiate on the scalartype. 
1F65 41 
~~ =o 6 OURS tg DOUBLE: MOVL AP, R 
05 06 O08 AS 8F 1F68 843 5$: CASEB scalar_dtype(R5) #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSC$K_DTYPE_B> 
doeD: 1F6D 844 18: .WORD DOUBLE-TO_BYTE-1§ ; code for byte dtype 
013B' \rgf 845 : DOUBLE_TO_WORD-1$ 3; code for word dtype 
0249' 1F71 846 -WORD DOUBLE _TO_LONG-1$ ; code for long dtype 
E141 Hae 847 > ERR_DATTYPERR-1$ 3 quad not supported 
0357" 1F7 48 «WORD DOUBLE_TO_FLOA-1$ : code for float dtype 
0465' Vere 3 ~W DOUBLE_TO_DOUBL-1$ ; code for double dtype 
1F79 = 851 5+ 
1F79 o2¢ ; Check for g and h floating separately, since they fall outside the range 
1F79 853 ; of the CASEB statement. 
1F79 = 854 GG 
1F79 8§=855 
18 O08 AS 91 1F79 £28 CMPB scalar_dtype(R5), #DSC$K_DTYPE_G 
03 12 1F7D 57 BNEQ $ 
0571 = 31 44: 528 BRW DOUBLE_TO_GFLOA 
1¢ O8 AS 91 FBS 860 2$ CMPB scalar_dtype(R5), #DSCS$K_DTYPE_H 
03 12 1F86 861 BNEQ 
067C «31 1588 86¢ BRW DOUBLE_TO_HFLOA 
18 O08 AS 91 1F8B 864 3$ CMPB scalar_dtype(R5), #DSC$K_DTYPE_DSC 
06 12 #‘IFB8F 865 BNEQ 
55 OC AS DO 1F91 866 MOVL SRC_MATRIX(RS), RS 
D1 361i «1F95)~ = 867 BRB 5$ 
1F97 868 
E114 31 1F97 869 4$: BRW ERR_DATTYPERR 3 unsupported dtype 
1FOA = 870 
1F9A = =871 5+ 
1F9A Ha 3; Now type of source array and scalar are known. Use the macro to 
1F9A 873 ; generate the code for each case 
1F9A «874 Ge 
1F9A = 875 


ww 


gc F 
BASSMAT_SCA_MUL Matrix eee 7? scal 15-SEP-1984 
1-025 ult 


1F9A 
20A8 


BASSMAT _SCA_MU 


iply “each element 6-SEP-1984 


877 DOUBLE_TO_BYTE: SBASSMAT_SC_MUL D, B 


2 


3:51: 
0:30: 


0 
5 


2 
0 


VAX/VMS Macro V04-00 
CBASRTL.SRCJBASMATSCA.MAR; 1 


Page 46 
rs (5) 


Pa CE LLG CO Cellars Aas Riaaeras aie aaa Sis 


BA ASSAAT _SCA_MUL Matrix multiply b 15-SEP-1984 
$43 BASSMAT SCA “nue ". huteistye each element 6-SEP-19 
4 geo DOUBLE _TO_WORD: S$BASSMAT_SC_MUL D, W 


LLL LL LLL LL CC LL CL ttt tata 


Be 70:30:50 LeAseic.se 


o V04-00 
JBASHATSCA.MAR; 1 


Page 47 
age 5) 


— 5 
ASSMAT_SCA_MUL Retels Ch hu ly by a scalar 15-SEP-1984 23:51: AX/VMS Macro V04-00 Page 48 
e835 :_ tea bas SMAT_SCA mut hultiply each element 3-$Fp= 1984 19:30:50 EBASRTL. SRCIGASMATSCA.MAR; 1 ’ (5) 
$186 8 DOUBLE _TO_LONG: SBASSMAT_SC_MUL D, L 
2c4 4 


BASSMAT_SCA_MUL 
1-025 


fF 5 
; Matrix eet eipty y § scalar 15-SEP-19 
BASSMAT_SCA_MUL = Multiply each element 6-SEP-19 


gece $36 DOUBLE_TO_FLOA: SBASSMAT_SC_MuL D, 
D288 


84 23:51:0 
84 $9:30:56 
F 


AX/VMS Macro v04-00 
BASRTL.SRCJBASMATSCA.MAR; 1 


Page 


49 
(5) 


. a ae 


BASSHAT_SCA_MUL 


bas 


G6 5 
NAT stAcRUL = Teoh cock element "8 pay 9; 30; 5 t 
$308 4 DOUBLE_TO_DOUBL: SBASSMAT_SC_MUL D, D 


AX/VMS M 
BASRTL. SRC 


Sash 


4-00 
MATSCA.MAR; 1 


me i, 


i 


“ niapepnieiiguimmssaiedtiniien areata 
RAS SEAT-SCA_MuL baSShal sta hul”~ hulrtetys each element "SEF 2138 13: 3h: 95 YOXSRTL ESB ASAT A.MAR; 1 sot 4, 


se £38 DOUBLE _TO_GFLOA: SBASSMAT_SC_MUL D, G 


ttt ttt ltt 


sn mut 1 5 
T i - - 
158 5 stig BASSMAT  SCAMUL ”="uttione pach element B-8b213 d 0:30 % EBASRTL. SRCIBASRATSCA.MAR; :1 ee ) 


3607 895 DOUBLE _TO_HFLOA: SBASSMAT_SC_MUL D, H 
718 896 


eA SMAT_SCA_MUL 
25 


05 


rix multiply b 
baSShaT SCACMUL ”= Mutts 
718 898 ; 
718 B3e i ; 
is $01 . 
55 5 0 2718 9 j GFLOAT 
06° OBA F 271— 903 5$: 
02D" 27 904 1$: 
143° f 309 
ty § 
p 8B 2729 90 
36F* 2708 08 
0485" 2720 90 
, f 319 + 
72F aig i 3; Check 
72F 913; of 
72F 46914: 
72F 6915 
18 OB AS 91° 272F 916 
03 12 2733 91 
OS8A 31 «2735 «(918 
138 919 
1¢ OB AS) (91 a3 920 28: 
03 12 273¢ 921 
0697 31 273 9 3 
741 9 
18 OB AS 91 2741 924 3$: 
06 12 2745 925 
55 OC AS 00 2747 936 
D1 43611 «274B. OC 
74D (9 8 
D9SE 31 274D 929 4$: 
750 930 
750 «931 s+ 
750 93¢ 3 
730 933 ; 
750 «934 :- 
750 «935 


cal 


for 


$$ 
ply each element "3 ie § 19; 30; 95 YBASRIL. She 


AP, 

oder 1-46’ Bete) #DSCSK_DTYPE_B, 
GFLOAT a : 
GFLOAT_TO_WORD-1$ 3 
GFLOAT_TO_LONG-1$ ; 
ERR_DATTYPERR-1$ 3 
GFLOAT_TO_FLOA-1 3 
GFLOAT_TO_DOUBL-1$ 3 


pai pape #DSCSK_DTYPE_G 
FLOAT_TO_GFLOA 
colar dtype(hs), 
GFLOAT_TO_HFLOA 
scalar_dtype(R5), 


SRC_MATRIX(RS), R5 
5$ 


#DSCSK_DTYPE_H 


ERR_DATTYPERR ; 


Now type of source array and scalar are known. 
_generate the code for each case 


; code for 
; code for 
; quad not 
; code for 
; code for 


#DSC$K_DTYPE_DSC 


o v04-00 Page 5 
SBASMATSCA.MAR; 1 ( 


Now differentiate on the scalartype. 


#<DSCSK_DTYPE_D = DSCSK_DTYPE_8> 
code for byte dtype 

word dtype 

long dtype 

supported 

float dtype 

double dtype 


and h floating separately, since they fall outside the range 
the CASEB statement. 


unsupported dtype 


Use the macro to 


, 


renee rtamceitiee 


BASSMAT_SCA_MUL 


bas 


trix multi 
T_SCA_MU 


py hate} 


calar 
ply each element 


15-SEP-19 
6-SEP-19 


86 10:30:50 


750 937 GFLOAT_TO_BYTE: SBASSMAT_SC 6, B 
866 «= 938 ches ~ 


AX/VMS Macro V04-00 


P 
BASRTL.SRCJBASMATSCA.MAR; 1 


 —  — a — 


8 BAT _SCA_MUL baShat sta: tae. hut hs ta each element "BER: 138¢ tt 36: 95 YBASRIL. § REIBAS Yar 00 MARE rege 43, | 
sb66 360 GFLOAT_TO_WORD: S$BASSMAT_SC_MUL G, W . | 


BASSMAT_SCA_MUL 


- io 
Bas 


Mw 5 
Nh ria a ee Ree element "38 b=} 3 18:30:96 f 
45; + GFLOAT_TO_LONG: SBASSMAT_SC_MUL G, L 


BASRTL.S 


AX/VMS Race 


o V04-00 
BASMATSCA.MAR;1 


me it, 


BASSAT. SCA_MUL 


bast 


N 5 
nAT'SCACRUL "Lt tthe each element ae Set y 9; 30; 95 YBASRTL She 


ZA92 946 GFLOAT_T0_FLOA: SBASSMAT_SC_MUL G, F 
BAB 947 


cro V04-00 
RCJBASMATSCA.MAR; 1 


Page 57 


$9) 


BASSMAT_SCA_MUL Matrix multiply by a scalar 15-SEP-1984 AX/VMS 
1-025 BASSMAT SCA “nut . hultipty each element 6=-SEP-1984 30:55 LBASRIL. SRC 
gbag 949 GFLOAT_TO_DOUBL: SBASSMAT_SC_MUL G, D 
cc 950 
isineiealicccaeivential as See Ae ee hee i ie Lie 


v04-00 Page 58 
BASMATSCA.MAR; 1 (5) 


—_ fT 


C 
BASSMAT_SCA_MUL Matrix multiply by a scalar 15-SEP-1984 23: AX/VMS Macro v04-00 Page 59 
1-025 ~ ~~ BASSMAT *SCA “nue "e Multiply each element 5-138 #3: 20; 4 UBASRTL. ge SRE JBASMATSCA.MAR: 1 7 (5) 


cCe 926 GFLOAT_TO_GFLOA: S$BASSMAT_SC_MUL G, G 


pon rr ——— SS 


BASSMAT_SCA_MUL 
025 


dD 6 
rix multiply b 15-SEP-1984 
BaSSnat SCA wt . huttistys each element a-sEb- 198 
gppg 955 GFLOAT_TO_HFLOA: SBASSMAT_SC_MUL G, H 
EF 956 


10:30:56 EBASRTE. SRESBASRAToCA. man: 1 


Page 60 
* 


— - 


05 


18 


1C 


18 
55 


rix 
baSSnat Ss 

EF 

EF 

EF 

55 CS 0 EF 

08 AS BF EF 
0 B: EFA 

143" SEFC 

259° SEF 

D1B4 2FO 

O36F" OF 

0485" 2F04 
F06 
F06 
F06 
F06 
F06 
F06 
08 AS) «(91S 2F06 
03 12 2FOA 
0586 31 2F0C 
FOF 

08 AS) «91—soOF OF 
0 12 2F13 
0693 31 2F15 
F18 
08 AS) «91s OF 18 
06 1 FIC 

0c AS) «DO ODF IE 
D1 «11s 2F 22 
F246 

D187 31. «OF 24 
F27 
F27 
F27 
3 
sist 


, #<DSCSK_DTYPE_D = DSCS$K_DTYPE_8> 
code for byte dtype 

code for word dtype 

code for long dtype 

quad not supported 

code for float dtype 

code for double dtype 


Se Se Se Se Ge Se 


hey fall outside the range 


sc 


; unsupported dtype 


Use the macro to 


E 
multiply b -$ AX/VMS v04-00 Page 61 
CA “nut "° haf teties each element 6-S 71986 5; 30: 95 YBASRTL L.S BASMATSCA. MAR; 1 at (5) 
eB . 3 Source array is an hfloat array. Now differentiate on the scalartype. 
| a 
306 HFLOAT: MOVL AP, RS 
965 53: CASEB scalar_d OBS te) #OSCSK_DTYPE_B 
964 1$: <WORD HFLOAT“TO_BYTE-1$ 
965 -WORD HFLOAT-TO-WORD-1$ 
308 -WORD HFLOAT-TO-LONG-1$ 
96 -WORD ERR_DATTYPERR-1$ 
968 «WORD HFLOAT_TO_FLOA-1$ 
383 «WORD HFLOAT_TO_DOUBL-1$ 
971 i+ 
1 ; Check for g and h floating separately, since t 
97 : _of the CASEB statement. 
ons 
976 CMPB scalar_dtype(R5), #DSCSK_DTYPE_G 
977 BNEQ “ee —* 
44 BRw HFLOAT_TO_GFLOA 
980 2$ CMPB calar_dtype(R5), #DSCSK_DTYPE_H 
981 BNEQ 
988 BRW HFLOAT_TO_HFLOA 
984 3$ CMPB scalar_dtype(R5), #DSCSK_DTYPE_D 
985 BNEQ 4 
on9 MOVL SRC_MATRIX(RS), RS 
Ht BRB 5$ 
989 4$ BRW ERR_DATTYPERR 
990 
991 i+ 
99 : Now type of source array and scalar are known. 
ean : _generate the code for each case 
995 * 


F 6 
BASSMAT_SCA_MUL Matrix 7 ly by a scatar 15-SEP-1984 Ax/VMS Macro Vv04-00 Pa 6 
1-025 GASSHAT SCALMUL = Multioty cach element GaSEP-1986 10:80,50 LOASNTe eRe TOASUATSCA.mans1 2% 98, 


¢ 27 "997 HFLOAT_TO_BYTE: SBASSMAT_SC_MUL H, B 
03D 998 


BASSMAT_SCA_MUL 


basthat sta mul ”="hutetpty each ite "oSep-1984 28:51:02 
2928 1900 HFLOAT_TO_WORD: SBASSMAT_SC_MUL H, W 


AX/VMS 
BASRTL 


v04-00 
SBASMATSCA.MAR; 1 


Page 


6 
( 


3) 


8 Poti baSSRAT*stAchuL = Mult tety’s each element "E865 71382 18; 30: 88 YEASR 


3138 1903 HFLOAT_TO_LONG: SBASSMAT_SC_MUL H, L 


Se ee ae eee 


CBRE SBaSma MAT ea. MAR; 1 en 3) 


1 6 
Matrix multiply b calar 15-SEP-19 AX/VMS Macro Vv04-00 
BASSHAT SCARUL = "hultiotercach element ‘o-sePa1984 10:30,50 FOASHTE eRe IGASMATSCA.MAR:1 


3269 1006 HFLOAT_TO_FLOA: SBASSMAT_SC_MUL H, F 
7F 1007 


Page 65 
” (3) 


en ee — 


J 6 
rao iRhGtSEURIE Phat Ast ach etnene "ERETBEE TEL RITE SSBB mess OH 


a “pe HFLOAT_TO_DOUBL: SBASSMAT_SC_MUL H, D 


BASSMAT_SCA_MUL 


K 6 
Matrix multiply by a scalar 15-SEP-1984 2 
~625 et § 84 1 


baSSHAT _SCA_MU Ltiply each element 6-SEP-19 
3323 19 HFLOAT_TO_GFLOA: SBASSMAT_SC_MUL H, G 
5AB 101 


08 rite g Macro V04-00 Page 67 


3:51: 
0:30: BASRTL.SRCIJBASMATSCA.MAR; 1 (5) 


L 
$43 ites baSShat stacUL huteistyrs each element <a net 15; 30: 5 YOASRIL. oh SRE BAS SOA TSCA.MAR: 1 roe (5) 


3e¢ 1Bt8 HFLOAT_TO_HFLOA: SBASSMAT_SC_MUL H, H 
eet 


| 


M 6 
BASSMAT_SCA_MUL ; Matrix multiply by a scalar 15-SEP-1984 23:51: AX/VMS Macro V04-00 Page 69 | 
PASSEATWSCAW BASEHAT SCACRUL ’="Muttictyrcach element SqsePo190¢ 10:30:50 OASKTE. Sar sBALMATScA.man;1 2% 92, | 
6C1 1019 ;+ 
2 ! 6 : Multiply has been in byte. Determine destination type to convert to dest. 
6Ci 1 . 
6c1 1 : DEST_CASE_B: 
56 =SA 0 36C1 1024 MOVL R10, R6 i save original pointer 
05 06 02 A6 BF 6C4 1025 315:  CASEB DSC$B_DTYPE(R6), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCSK_DTYPE_B> 
18D' 36C9 1 § 1$: eWORD STORE _BYTE-1$ 3 no conversion needed 
go) 6cB 1 «WORD DEST_B_TO_w-1$ ; code for word dtype 
6F* 36CD 1 3 WOR DEST B TO L-1$ :; code for long dtype 
44 6cr 1 -WORD ERR_BATTYPERR-1$ ; quad not supported | 
Of 1" 36D1 19 0 -WORD DEST_B_TO_F-1$ ; code for float dtype 
573° ret 1031 «WORD DEST_B_TO_D-1$ ; code for double dtype 
Sp 1038: | 
605 ioe : Check for g and h floating separately, since they fall outside the range 
605 1 33 3 of the CASEB statement. 
ae | 
18 02 , 4 ees 1330 cue DSCSB_DTYPE(R6), #DSCSK_DTYPE_G | 
0688 4 708 1909 BRW DEST_B_TO_G 
1c 02 Ag 91 $ODE 1042 28 CPB DSCSB_DTYPE(R6), ADSCSK_DTYPE_H | 
O7CA 31 Es 1044 BRW DEST_B_TO_H 
18 02 ae 9} a4 1308 3$ eg DSCSB_DTYPE(R6), #DSCSK_DTYPE_DSC | 
56 04 A6 00 zene 1048 MOVL 4(R6), R6 
Dis 36h Heh BRB 31$ | 
c9B8 sé er 1082 4$: BRW ERR_DATTYPERR 3 unsupported dtype | 
6F6 1053 ;+ 
te 1328 3; Multiply has been in word. Determine destination type to convert to dest. | 
6F6 1056 © 
6F6 1057 DEST_CASE_W: | 
56 SA 00 ors 1058 MOVL R10, R6 
05 06 £02 A6 6F 1059 33$: CASEB psc$B DTYPE(R6), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCSK_DTYPE_8> 
136° of 1060 1$: -WORD DEST_O - 3; code for byté dtype 
O35a° 00 1061 -WORD STORE QoRB-1$ 3 no conversion needed 
3F° 37 196¢ -WORD DEST @ TO L-1$ ; code for long dtype 
C980 37 1 -WORD ERR_BATTYPERR-1$ 3 quad not supported 
0441" 37 $ Hs WORD DEST_W_TO_F-1$ 3; code for float dtype 
0547° g ; ! 66 -WORD DEST_W_TO_D-1$ ; code for double dtype 
70A 1067 ;+ 
70A Hf 3; Check for g and h floating separately, since they fall outside the range 
70A 1 $ 3 of the CASEB statement. 
A an 
1B «402 ag 9) 4 A ! es cnre BSCSB_OTVPE (RG), #OSCSK_DTYPE_G 
068e if at 1074 BRwW DEST_W_TO_G 
713 1075 


2 oo ooo —_ a 


N 6 
BASSMAT_SCA_MUL ; Matrix multiply b 15-SEP-19 AX/VMS Macro V04-00 Page 
mitts BASSHAT SCA_MUL ve hutttety'e each element a-SEp- 1984 9: 30; 95 EBASRIL. SR SRC SBASMATSCA.MAR; 1 ’ 
1c 3602 Ag 1? ae ] 16 2$: cere CSB_DTYPE(R6), #DSCSK_DTYPE_H 
0798 : i ! a BRW DEST_W_TO_H 
18 02 ys 7 4 ! ? 3$ eure FECES STEPS (RG). #DSCSK_DTYPE_DSC 
56 04 A6 06 7 1 § MOVL $486). R6 
D1 11 4 1} 7 BRB 3$ 
c983—s«311 4 : 8 é 4$: BRW ERR_DATTYPERR 3; unsupported dtype 
72B (1 i+ 
4 : 1088 | 3 Multiply has been in long. Determine destination type to convert to dest. 
758 1090 *_ 
72B 1091 DEST_CASE_L: 
56 SA po 728 1936 MOVL R10, R6 
05 06 02 A6 F 7 3 1095 35$: CASEB osc $B DTYPE(R6), M#DSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCS$K_DTYPE_B> 
0106' 37 1094 1$: -WORD DEST_C_TO_B-1$ ; code for byte dtype 
0208" 3735 1095 -WORD DEST LTO W-1$ ; code for word dtype 
0327" 3737 1096 WORD STORE _CONG-1$ 3 No conversion needed 
C97B 3739 1097 -WORD ERR_DATTYPERR-1$ 3 quad not supported 
0411' 38 1098 «WORD DEST_L_TO_F-1$ : code for float dtype 
0518" 373D 1099 eWORD DEST_L_TO_D-1$ ; code for double dtype 
373 1101: 
73F 1106 3 i Check for g and h floating separately, since they fall outside the range 
73F 110 : _of the CASEB statement. 
regs 
18 02 ag 9 rae 1106 once BECED_DTVPE (RG), #DSCSK_DTYPE_G 
065D = =31 et 1138 BRW DEST_L_TO_G 
1¢ 02 A6 91 748 1110 2$ CMPB DSCSB_DTYPE(R6), #DSCSK_DTYPE_H 
03 12 374C 1111 BNEQ 3$ 
076c = 31 ree W116 BRwW DEST_L_TO_H 
18 02 a6 9} Pel aE 3$ cee DCEO _DTVPECRG) , #DSCSK_DTYPE_DSC 
56 04 A6 DO 3757 1116 MOVL 4(R6), R6 
a oe ie BRB 35$ 
C94E Os 311 £28 113) 4$: BRW ERR_DATTYPERR 3 unsupported dtype 
760 1121 i+ 
168 i gi ; Multiply has been in float. Determine destination type to convert to dest. 
760 1134 ° 
80 1125 DEST_CASE_F: 
56 SA 00 700 11 a MOVL R10, R6 
05 06 O02 A6 _ 8F 763 11 37 ass CASEB psc $s DTIYPE(R6), MDSCSK_DTYPE_B, #<DSCSK_DTYPE_D - DSCSK_DTYPE_B> 
0006 768 11 8 1$ WORD DEST_F_T0_B-1$ 3 code for byté dtype 
630 * 376A 11 WORD DEST"F-TO-W-1$ 3 code for word dtype 
gre" 76C 1130 eWORD DEST F TO'L- : code for long dtype 
(946 oF 1131 -WORD ERR _BATTYPERR-1$ 3 quad not supported 
O3F4' 37 1132 -WORD STORE_FLOAT~-1 3 Mo conversion needed 


87 
; Matrix multiply by a scalar 15-SEP-1984 23:51: AX/VMS Macro v04-00 Page 71 E 
BASSMAT-SCA_MUL e hultipty each element rates 3:30:96 UBASRTL. SREIBASMATSCA,MAR: 1 (6) | \ 
O4EF* ore 1} ? -WORD DEST_F_TO_D-1$ ; code for double dtype 
774 «1135 3+ 
774 «(11 § ; Check for g and h floating separately, since they fall outside the range 
774 «+1137 ; of the CASEB statement. 
re i139 
1B O2A 91 774 1140 CMPB DSC$B_DTYPE(R6), #DSCSK_DTYPE_G ] 
0 12 3778 1141 BNEQ ¢ 
062E 31 ade 1186 BRW DEST_F_TO_G } 
1¢ 02 AG «91 «3770 «1144 28 CMPB SCSB_DTYPE(R6), #DSCSK_DTYPE_H F 
0 12 3781 1145 BNEQ S 
073d = 31 at 1128 BRW DEST_F_TO_H : 
18 02 A6 91 3786 1148 3$ CMPB = DSC$B_DTYPE(R6), #DSCSK_DTYPE_DSC | A 
06 12 378A 1149 BNEQ 
56 04 A6 DO 378C 1150 MOVL 4(R6), R6 T 
ie a4 Wa) BRB 37$ ¢ 
C919 = «31 595 1183 4$: BRW ERR_DATTYPERR 3; unsupported dtype 1 
$532 1154 4 
795 1155 3+ 
3795 1156 ; Multiply has been in double. 
795 1157 ; Determine destination type to convert to dest. 
795 1158 :- 
795 1159 
Hae 1160 DEST_CASE_D: 
56 SA DO 3795 1161 OVL R10, R6 
05 06 02 A6_ 8F 3798 116¢ 39$:  CASEB DSC$B_DIYPE(R6), MDSCSK_DTYPE_B, #<DSCSK_DTYPE_D - DSC$K_DTYPE_B> 
QOA6' 379D 1163 1$: -WORD DEST_5_TO_B-1$ ; code for byté dtype 
O1A8" 379F 1164 «WORD DEST_D_TO_W-1$ ; code for word dtype | 
O2AA' 37A1 1165 «WORD DEST D_ TO L-1$ ; code for long dtype 
C911 ache 1166 -WORD ERR_BATTYPERR-1$ 3 quad not supported 
O3AC* 37A5 1167 -WORD DEST D_T0_F- ; code for float dtype 
051C* 37A7 1168 -WORD STORE_BOUBLE-1$ ; store it as is 
37A9 1169 
37A9 1170 3+ ; 
as 1171 ; Check for g and h floating separately, since they fall outside the range 
7A9 1178 ; of the CASEB statement. 
37A9 1173 :- 
37A9 1174 
1B 02 A6 91 3S7A9 1175 CMPB DSCSB_DTYPE(R6), #DSCSK_DTYPE_G 
03 12 37AD 1126 BNEQ 2s 
OSFF 31 vA 1127 BRW DEST_D_T0_G 
1¢ 02 A6 91 37B2 1179 2$ CMPB DSCSB_DTYPE(R6), #DSCSK_DTYPE_H 
03 12 3786 1180 BNEQ 3$ 
O70E 31 ree 1} 1 BRW DEST_D_TO_H 
18 02 A6 91 3768 1188 3$ CMPB DSC$B_DTYPE(R6), #DSCSK_DTYPE_DSC 
06 12 3S7BF 1184 BNEQ 4$ 
56 04 A6 oY 7C1 Ht MOVL 4(R6), R6 
ae te 1 § BRB 39$ 
C8E4 31 aH 1188 4$ BRW ERR_DATTYPERR 3; unsupported dtype 


mS - eae 


C 
BASSMAT_SCA_MUL ; Matrix multiply by a scalar 15-SEP-1984 23:51: AX/VMS Macro V04-00 Page 72 
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7CA 1190 5+ 
pea 1133 ; Multiply has been in gfloat. Determine destination type to convert to dest. 
7CA 1138 
7CA 1194 DEST_CASE_G: 
56 SA D0 37CA 1195 MOVL R10, R6 
0S 06 02 A6_ 8F 7CD 1138 41$: CASEB SC $B DTYPE(R6), MDSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCS$K_DTYPE_B> 
OO7A' 3702 1197 1$: «WORD DEST_G_TO_B-1$ ; code for byte dtype 
8356, 704 +1198 -WORD DEST_G_TO_W-1$ ; code for word dtype 
44% 706 «1199 -WORD DEST GTO L-1$ ; code for long dtype 
C bf 7D8 1200 -WORD ERR _BATTYPERR-1$ 3 Quad not supperted 
3 0' 37DA 1 9) «WORD DEST_G_TO_F-1$ ; code for float dtype 
4A0° poe ! 5S -WORD DEST_G_TO_D-1$ ; code for double dtype 
37DE 1204 ;+ 
7DE 1205 ; Check for g and h floating separately, since they fall outside the range 
7DE 1206 ; of the CASEB statement. 
7DE 1207 ;- 
gee 1208 
1B 02 A6 91 7DE 1209 CMPB DSCSB_DTYPE(R6), #DSCSK_DTYPE_G 
03 12 37E2 1210 BNEQ 2e$ 
05€5 = = 31 $563 1g1) BRW STORE _GFLOAT 
10 02 a6 91 Ha 1518 2$ CMPB = DSCSB_DTYPE(R6), #DSCSK_DTYPE_H 
03 12 3S7EB 1214 BNEQ 3$ 
06E3 31 376 1213 BRW DEST_G_TO_H 
18 02 A6 91 37FO 1217 3$ CMPB DSCS$B_DTYPE(R6), #DSCSK_DTYPE_DSC 
06 12 37F4 1218 BNEQ 4$ 
56 04 A6 DO 37F6 1219 MOVL 4(R6), R6 
D1 11 37FA 1220 BRB 41$ 
37FC 1221 
CBAF 31 37FC 1656 4$: BRW ERR_DATTYPERR ; unsupported dtype 
37FF 122 
S7FF 1224 3+ ‘ : ep 
gre 1$6? ; Multiply has been in hfloat. Determine destination type to convert to dest. 
gore 1387 
7FF 1228 DEST_CASE_H: 
56 SA 00 37FF 1693 MOVL R10, R6 
05 06 02 A6 BF 3802 1230 43$:  CASEB DSC$B DTYPE(R6), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D - DSC$K_DTYPE_B> 
0048" 3807 1231 1$: «WORD DEST_A_TO_B-1$ ; code for byté dtype 
014D" 3809 1 3 «WORD DEST_H_TO_W-1$ ; code for word dtype 
024F* 380B 1 ; eWORD DEST H TO L-1$ ; code for long dtype 
C8A7 3 1234 -WORD ERR_BATTYPERR-1$ ; quad not supported 
0351° F 1235 WORD DEST_H_TO_F-1$ ; code for float dtype 
0498' 3813 ; ? eWORD DEST_H_TO_D-1$ ; code for double dtype 
13° 1238 ;+ 
13 1239 ; Check for g and h floating separately, since they fall outside the range 
13 1240 ; of the CASEB statement. 
WBE 
1B 02 A6) «91 «3813 1 23 CMPB = DSCS$B_DTYPE(R6), #DSCSK_DTYPE_G 
0 12 1 1244 BNEQ 
OSAC 31 1? ' 22 BRW DEST_H_TO_G 


—n 


a 


BASSMAT_SCA_MUL ; Matrix mul 
iAb25 . BASSMAT_SCA_, 
1c 02 if 91 381 
asks HH HS 

18 0206 91 1 
06 3 8 9 1 

56 04 A6 OD B 1 
Di «11 382F 1 

8 11 

C87A 31 2% 

4 1 

4 1 

50 50 33 4 1 

i 11 837 1 

839 1 

839 1 

50 50 F6 839 1 

18 #11 «383c 1 

83E 1 

83E 1 

50 50 48 3835 1 

13° «11 «3841 «1 

843 1 

ate 1 

50 10 AG 66 3843 1 
50 50 68 3847 1 

OA 11 384A 1 

B4C 1 

B4C 1 

50 50 48FD 384c 1 

046 11 3850 1 

852 1 

852 1 

50 50 68FD 3852 1 
856 1 

856 1 

856 1 

51 SA DO 3856 1 

52 046 A4 DO 3859 1 
53 58 DO 385D 1 
860 1 

860 1 

860 1 

860 1 

60 1 

0000002c 3860 1 
0000002C 1 

9000 —E 3860 1 

F 3860 1 

0000030 3860 1 
00000034 6 

34 AE 50 90 3860 1 
; } 

935 1 

935 1 


D 
i 
ful ”-"huleipty each 


47 28: CMPB 
4 BNEQ 
1 BRw 
2) 3$: CMPB 
¢ BNEQ 
5 MOVL 
22 BRB 
3? 4$: BRW 
DEST_W_TO_B: 
38 CVTwB 
$ BRB 
$¢ DEST_L_TO B: 
6 cOTLB 
64 BRB 
65 
66 DEST_F_TO_B: 
67 COTFB 
68 BRB 
69 
70 DEST_D_TO_B: 
71 DIvb2 
% CVTDB 
7 BRB 
74 
75 DEST_G_TO B: 
76 cVTGB 
77 BRB 
78 
79 DEST_H_TO B: 
80 CUTHB 
81 
83 
STORE_BYTE: 

4 MOVL 
Row 
Ha 

8 

+] 

0; 

91 

3 value_desc = 44 
93 str_len = 44 

94 dtype = 4 

95 class = 4 

38 pointer = 48 

97 data = 

9 MOVB 
o} STORE 
08 


15-SEP-1984 
element 6-SEP-1984 


CSB_DTYPE(R6), #DSCSK_DTYPE_H 
STORE _HFLOAT 
DSCSB_DTYPE(R6), #DSCSK_DTYPE_DSC 


4(R6), R6 

43$ 

ERR_DATTYPERR : 
RO, RO ; 
STORE_BYTE ; 
RO, RO F 
STORE_BYTE ; 
RO, RO : 
STORE _BYTE : 
scale(R4), RO 3 
RO, RO e 
STORE _BYTE ; 
RO, RO 3 
STORE _BYTE F 
RO, RO : 
R10, R1 e 
lLower_bnd1(R4), R2 3 
R11, R3 3 


£0. data(SP) 


e 
3; Restore the following offsets. 


10:50:55 EBASRTL. SACIBASMATSCA.MAR: 1 


— l 


73 


Pa 
= (6) 


unsupported dtype 


convert 
go store 


convert 
go store 


convert 
go store 


; descale the double 
; convert 
; go store 


convert 
go store 


convert 
fall into store 


; pointer to dest descriptor 


current row 
current column 


3¢ 
3; Redefine the following offsets for the call to the STORE macro. The 
3; BSBW to here added 4 to the stack. 


store 


| BASSMAT_SCA_MUL 
2855 = OR 


5 value_desc = 40 
r_lén = 40 
dtybe : ri 

class = 4 
pointer = 44 

10 data = 48 

RSB 
DEST_B_TO WwW: 

: DEST_G_TO Ww: 


1 
05 1 
! 
50 50 99 1 a ‘vie Bw 
wo ! 
18 DEST_L_TO_W: 
50 50 =F? 1 svitw 
18 «11 
DEST_F_TO Ww: 
50 Ht svivw 
1 
DEST_D_TO_W: 
50. 61C AS 66 DIvo2 
0 50 69 CVTDW 
OA 11 BRB 
3 
3 
3 
3 
; 
3 
3 


a 
o 
WOOOODOOOOOODOOODOOOOOOOOOOOOOOOOOOOOOOOOOO 
PRED PAGS BB EEE EEE PIA 
"WD COCDO0O8 & & SPM MMO OINVWooomdsDoeaoun 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee | 
DODONA UE WN © OO NAU EWN $$ O OD NOAUES WN SO OONOUS Wit 
a 


—E 7 
ri lt 
baSSnat SCA tt”. y 8A. ya element 


15 


RO, RO 
STORE _WORD 
RO, RO 
STORE _WORD 
RO, RO 
STORE _WORD 


scale(R4), 
RO, R 
STORE _WORD 


6-$EP-198¢ 10:30:50 EBASRTL.SREIBASMATSCA.MAR;1 9° 


3 go continue loop 


; convert 
3 go store 


; convert 
; go store 


3; convert 
3 go store 


RO 3; descale the double 
3 convert to word 
3 go store 


: convert 
3 go store 


3 convert 
: fall into store 


3 pointer to dest descriptor 
(R4), R2 3 current row 
3 current column 


ffsets wor the call to the STORE macro. The 
the stack. 


; store 


50 50 49FD cv TGw RO, RO 
ab STORE _WORD 
DEST_H_TO_W: 
50 50 69FD CVTHwW RO, RO 
STORE_WORD: 
1 SA d0 34 MOVL R10, R1 
52 04 a4 00 4 MOVL lower we 
30655B-~SCiédO ? s MOVL R11, R 
96 44 ; Redefine the fol lawjng rs) 
9 45 ; BSBW to here added 4 to 
96 46 ;- 
96 4 
0090002C 396 48 vaiue_desc = 44 
i444 C 396 49 str_lén = 
OO0002ZE 396 50 dtype = 4 
i444 F 396 2) class = 4 
0000030 396 ; pointer = 48 
00000034 ne 3? data = 
34 AE 50 BO 396 55 MOVW RO, data(SP) 
9 § 2$ STORE W 
A 57 3 
A37 28 3; Restore the following offsets. 
A37 59 :- 
A37 60 


(6) 


— 


F 7 
AT_SCA_MU . i i -SEP- 
heii — basshate Ch hut hut eyed each element as eh 4 %: 30; 8 YoASRTe we L.S ere okrera. MAR; 1 vege 


S$ 
1 a desc = 40 
' str. Lén : i 
e = 
F i360 Crees = 2g 
: 7 1365 pointer = 44 
4 1 06 data = 
1 ? i go continue loop 
1 DEST_B_TO.L 
50 50 1 $ cota RO, RO 3 convert 
1D : 4 STORE_LONG : go store 
D1 a mors L: 
50 50 D 1374 CUTw. = RO, -RO 3 convert 
18 f3 BRB STORE_LONG ; go store 
1 8 DEST_F_TO_L 
50 39 1 4 cOTFL RO, RO 3 convert 
1 nt : STORE _LONG ; go store 
AS7 1381 DEST_D_TO_L: 
50 1C AG AG? 1 DIVD2 scale(R4), RO 3 descale the double 
> a A4B 138 CVTOL 3 convert 
OA : Se BRB STORE _LONG i; go store 
ASO 1 6 DEST_G_TO.L 
50 50 4A ASO 1 core RO, RO 3 convert 
04 Ads 88 STORE_LONG ; go store 
56 1390 DEST_H_TO Le 
50 50 6AFD 3A56 1391 CUTH RO, RO 3 conv 
are : 4 3 fall. ie store 
A5A 1394 STORE_LONG: 
51 SA ASA 1395 MOVL R10, R1 ; pointer to dest descriptor 
52 04 A4 ASD 1 38 MOVL lower yraiint, R2 3; current row 
53 «658 rd ! ; a MOVL R11, R 3 current column 
A64 1599 : Redefine the fel tawing offsets 9 the call to the STORE macro. The 
Ab4 1709 3; BSBW to here added 4 to the stack 
Age ye02 * 
0000 A64 14 : value_desc = 44 
A64 1404 str_lén = 44 
8 A64 1405 dtype = 4 
it A64 14 $ class = 4 
0 A64 1407 pointer = 4 
- Mee 1409 eee 
34 AE 50 A64 1410 MOVL RO, data(SP) 
8 + ot STORE L 3; store 
9 1218 3° : Restore the following offsets. 
9 jes 
900008 9 1616 value_desc = 40 
0000 9 1417 str_lén = 40 


——_--- ------- 


vasa 


WWAWAIANIA NAAN 


@ ow 
= a 


AWPFAOOO WOOO NMMUINOS OOOWVNLS LSU NOP SP POOOVWo 


POOMOMOOOL 


itt” hated 


dtype = 4 
tltes = 4 
poi 

data = 


DEST_W_TO_F: 
CUTwF 
GRE 


DEST_L_TO F: 
COTLF 
BRB 
DEST_D_TO 


CVTDF 
BRB 


DEST_G_T0_F: 
COTGE 
BRB 


DEST_H_TO F: 
COUTHF 


calar 


F: 
DIvo2 


G 
iF ok St 
ply each element 6-SEP-19 


RO, RO 
STORE_FLOAT 
RO, RO 
STORE_FLOAT 


RO, RO 
STORE_FLOAT 


scale(R4), RO 
RO, R 
STORE _FLOAT 


RO, RO 
STORE_FLOAT 


RO, RO 


R10, R1 
lLower_bnd1(R4), R2 
R11, R3 


AX/VMS Macro v04-00 Page 
BASRTL.SRC JBASMATSCA.MAR; 1 


go continue loop 


convert 
go store 


convert 
go store 


convert 
go store 


descale the double 
convert 
go store 


convert 
go store 


convert 
fall into store 


; pointer to dest descriptor 
; current row 
; current column 


3¢ 
3; Redefine the following offsets for the call to the STORE macro. The 


value_desc = 
= 44 


MOVE 
STORE 


value_desc os 


; BSBW to here added 4 to the stack. 


0. data(SP) 


; Restore the following offsets. 


; store 
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0 C 1475 pointer = 44 
bo00008§ FB 1476 Gata = 48 
0 C3B «(147 RSB 3 9° continue loop 
C3C¢ 10/8 ; fall into store float 
C3C 1479 DEST_B_T0O_D: 
50 50 6C 3C3C 14 CVTBD =saRO,,_- RO 3 get double 
50 10 AS 64 3SC3F 1481 MULD2 = scale(R4), RO 3; Scale the double 
C43 (14 ¢ ; NOTE: no need for integerize 
74 2 1? 7 BRB STORE _DOUBLE ; go store 
C45 1485 DEST_W_TO_D: 
50 6D 3 14 § CUTwo RO, RO ; get double 
50 110 AS 646 3C48 14 MULD2 scale(R4), RO 3 Scale the double 
C4C 1088 ; NOTE: no need for integerize 
68 (11 cae 1489 BRB STORE _DOUBLE ; go store 
CSE 1491 DEST_L_TO_D: 
5 50 6E 3C4E 1436 CVTLD RO, RO ; get double 
50 10 AS 64 3C51 149 MULD2 = scale(R4), RO ; scale for dest f 
C55 1494 ; NOTE: no need for integerize 
62. 11 $023 \t32 BRB STORE _DOUBLE 3 go store 
st2f 1497 DEST_F_TO_D: 
50 50 56 3C€57 1498 COTFD = =RO, RO i get double 
50 1C AS 64 3CSA 1499 MULD2 = scale(R4), RO 3; scale for dest 
08 1C AS 71 3C5E 1500 CMPD scale(R4), #1 : scale 0? , 
0c 13 362 1501 BEQL 1$ 3: yes, don't integerize 
7E 54 D0 3€64 1388 MOVL R4, -(SP) 3 Save R4- 
00000000'GF 16 3€67 150 JSB G“MTHSDINT_R4 3 integerize 
54. CB dO 34 1308 MOVL (SP)+, R4 3 restore R4 
11 cf 1302 1$: BRB STORE _DOUBLE ; go store 
cf 1307 DEST_6_10,0: 
He 139? 3; Note the intermediate conversion to hfloat. 
7E 52 po 3¢72 1511 MOVL Re. -(SP) : save regs which CVTGH 
a ie DO 3C7 1318 MOVL R3, -(SP) 3; will destroy 
50 50 56FD 3€78 151 CVTGH RO, RO 3 cvt gfloat to hfloat 
50 SO F7FD 3C7C 1514 CVTHD RO, R 3 cvt to desired double 
53 BE «600s 3C80 «1515 OVL (SP)+, R3 > restore regs 
52 BE 00 3C 1318 MOVL (SP)+, R2 
50° 1C AG 64 (86 151 MULD2 scale(R4), RO > scale for dest 
08 1C Ad 7 1318 CMPD scale(R4), #1 ; scale 0? : 
e9 13 3¢8E 151 BEQL § STORE_DOUBLE : yes, don't integerize 
7 54 00 3€90 1520 MOVL R4, -TSP) ; save R4 
00000000'GF 16 3C€93 1521 JSB G*ATHSDINT_R4 : integerize 
54 BE c99 «15 § MOVL (SP)+, R4& 3 restore R4 
OO1A 1 34: 1 i BRW STORE _DOUBLE 
COF 13 5 DEST_H_TO_D: 
50 50 F7FD C9F «615 § CVTHD RO, RO ; get double 
50 1C A4 $ CAS q MULD2 = scale(R4), RO : scale for dest 
08 1C A4 1 3CA7? 1 3 CMPD scale(R4), #1 3; scale 0? : 
o¢ 13 CAB 1 BEQL STORE DOUBLE : yes, don't integerize 
7E 4 OD ‘A 1530 MOVL R4, -TSP) 3 Save 
00000000 ' GF 16 3CB 1531 JSB G*ATHSDINT_R4 ; integerize 


(6) 


Matrix mu 


BASS SMAT_SCA_MUL 
BASSMAT SCA_M 


52. SA 
53 04 AG 09 
5 58 


444 4h ¢ 
000002C 
0000002E 
0000002F 
44464 0 
00000034 


34 AE 50 70 


DODODONOMOAOOOOOOOOOOOoOWWWWW® 1 


(CD G9 CD C9 NINN NIN AIA AI AIAN OO OOO 


VOSS GS FSI IGIOOAOOAOOAOAAAAOOOOOOAAO 


000000 : 98 
000000 3 
0000002A 9 
00000028 3 
02c 
0 ? 98 


MOVL 


STORE DOUBLE: 
MOVL 


elu. sdesc = 44 
= 44 


cor 


v 
S 
dty 
C 
p oe = 48 
data = 52 


MOVD 
STORE 


alr 
+ 


va 

str. én = 4 

dtyp 

pointe = 4 

po 

dat 

DEST_B_T0_G 
cOTBG 


DEST_W_T0 G: 
COT WG 


DEST_L_10.G 
cOTL G 


DEST_F_T0 G: 
‘vt FG 


wna 
MOVL 


MOVL 
CVTDH 
CVTHG 


ee a a ed a el a a a el a el cc a a el a el ee a el ed a a 
COO9G9 C9 C9 C9 C99 G9 SII SS DD DS DDD DDS TUTTE BS BS BS BB BE EAN 


DNA AEA SO OD NAME WN 9 OO NAME WN @ O OO NOAM EWN OOD NAF WWI O OD NOAU EWN 


:  nedefine the rellawjne 
; BSBW to here added 4 to the stack 


lue_desc = 40 
0 


I 
Ltipl 
, mut ’ ohalelete's each 


(SP)+, R4 


R10, R2 
Lower_bnd1(R4), 
R11, R4 


ae data(SP) 


;_Restore the following offsets. 


RO, RO | 
STORE_GFLOAT 
RO, RO 
STORE_GFLOAT 
RO, RO 
STORE_GFLOAT 


RO, RO 
STORE_GFLOAT 


Re -(SP) 
R5, (SP) 
RO 


RO, 
RO, RO 


15-SEP-19 
element 6-SEP-1984 


86 {0:30:50 Es 
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restore R4 
fall into store 


pointer to dest descriptor 


current row 
current column 


offsets Mt the call to the STORE macro. The 


store 


go continue Loop 


convert 
go store 


convert 
go store 


convert 
go store 


convert 
go store 


: Note the intermediate conversion to hfloat. 


save regs which CVTDH 
will dest troy 
cvt dbl to hfloa 


; cvt to desired Steet 


Peer rer po eeteennenennnenersennareetireeatnrntetee mene 
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ee DBF 1589 MOVL (SP)+, R : 
33 gt 00 dC 1 $9 MOVL {3} 3. R EyErere EP 
0004 45 ! 4 BRw STORE _GFLOAT 
pcs 1 36 DEST_H_TO_G: 
50 50 76FD 30C8 1594 CUTHG RO, RO 3 convert 
43: ! + ; fall into store 
occ 1397 STORE _GFLOAT: 
52 SA OD occ 1 a8 MOVL R10, R2 3; pointer to dest descriptor 
53 O04 A46 OD OCF 159 MOVL Lower_bnd1(R4), R3 3; current row 
54 5B O 4¥ i 9 te MOVL R11, R4 3 current column 
DD6 16 § : Redefine the following offsets for the call to the STORE macro. The 
DD6 1603 ; BSBW to here added 4 to the stack. 
bbe 1608 
0000002C 3DD6 1606 value_desc = 44 
0000002C 3DD6 1607 str_lén = 44 
QOO0002E 3DD6 1608 dtype = 46 
OO0002F 3DD6 1609 class = 47 
00000030 3DD6 1610 pointer = 48 
00000034 +44 191) data = 5 
34 AE 50 SOFD DD6 1818 MOVG RO, data(SP) 
poe 1618 g STORE G 3; store 
£B0 1616 ; Restore the following offsets. 
fe0 jee 
00000028 3EBO 1619 value_desc = 40 
44 8 3&B0 1620 str_len = 4 
00000098 3680 1652 claee = 48 
class = 
90000086 EB 18 tae a fie 
ata = 
05 341 1 5 3 go continue loop 
—B1 16 5 DEST_B_TO_H: 
50 50 6CFD 3EB1 16 3 CVTBH RO, RO 3 convert 
20 «11 EBS 16 ; BRB STORE _HFLOAT : go store 
EB? 1631 DEST_W_TO_H: 
50 50 6DFD 3EB7 16 $ CVTWwH RO, RO 3: convert 
1A so EBB 16 ; BRB STORE _HFLOAT : go store 
EBD 1635 DEST_L_TO_H: 
50 50 6EFD 3EBD 16 § COTLH RO, RO 3 convert 
4 #11 EC 16 BRB STORE _HFLOAT ; go store 
EC3 16 : DEST_F_T0_H: 
50 50 98FD 3EC 1949 COTFH RO, RO > convert 
0€ 11 EC 164 BRB STORE_HFLOAT ; go store 
a3: 1868 DEST_D_TO_H: 
50 1 AG 66 3ECO 1644 DTvo2 scale(Rd), RO 3; descale the double 
50 50 32FD CD 1645 CVTDH RO, RO 3 convert 


. 
BASSMAT_SCA_MUL ; Matrix multiply by a scalar 15-SEP-1984 23:51: AX/VMS Macro V04-00 P 80 
passe BASSMAT SCA_MUL ‘s huttipty each element Fate ts 93:30:98 EBASRIL. SRE IBASMATSCA.MAR: 1 se (6). 
06 11 ED 46 BRB STORE _HFLOAT ; go store | 
EDS 1648 DEST_G TO_H: 
50 50 S6FD 3ED3 1 rk =" CUTGH RO, RO 3 convert 
344 19 0 : fall into store 
Eby 16 STORE_HFLOAT: 
55 04 A4 DO SED? 16 MOVL lLower_bnd1(R4), R5 i current row 
¢ SA 0D EDB 162% MOVL R10, R4 3; pointer to dest descriptor 
6 58 DE 192 7 MOVL R11, R 3 current column 
€E1 1887 : Redefine the fol lowing offsets for the call to the STORE macro. The 
EE1 16 8 ; BSBW to here added 4 to the stack. 
FEY 680° 
Q000002C SEE1 1661 value_desc = 44 
0000002C 3EE1 1666 str_lén = 44 
OOOOO02E 3EE1 1665 dtype = 4 
QOOO0O02F 3EE1 1664 class = 4 
00000030 3EE1 1665 pointer = 48 
00000034 43 1998 data = 
34 AE 50 70FD EE1 1668 MOVH RO, data(SP) 
434 1669 e STORE H 3; store 
FBB 1671 ; Restore the following offsets. 
fee ers 
000000 : FBB 1674 value_desc = 40 
000000 FBB 1973 str_len = 
0000002A 3FBB 1 a dtype = 
00000028 3FBB 1677 class = 
SSRs HSS Here eaters « 
ata = 
05 3FBB 1680 3 go continue loop 
aoe 682 
3FBC 1688 END ; end of BASSMAT_SCA_MUL 
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; Matrix multiply by a scalar 


SMAT_SCA_MUL 
fable 


BAS 
Symbol 


r 


cucucucucucucucucucucucuCuCuCuUCN «= CucuCcUCUCUCUCUCUCUCUCUCUCUCY eucucueucry 
SOOOOOSOSOOSSOSOSSOSHO COOOCOCOCOOOOCOSooOoO Sooooo 


CRNO uu. DOOTOwTNODMOsrnNu wh. OME VST MP 0OD0 CMOwu ODDOVO VT ~TDVOOr. OWWa sw 
DaeeDoDacnwod ZOM—MTMO OM OC O4FuU0 Od “COCO DCC eK KKK Ne KK wNOONE Our 


SOOGCOCCSOOSOOSGCOSOSCOCOSGSOoGOGSGOGOGOOOSoSOSSOOSOOSOSOSOSOSOSOSOSOOSOOCOOOSOOSOOSOOOOoOOSoOoSo 
SOOOCCOCSOOSOOSOOSSCOSOSSOSOOSOSSSSOSOSSSSSSSSSOSoSoooooooooooooooooooooooo 
SOOSOSOSOOSOOCOSOOSOSOSSOSOOSSOSOSOSSOSSOSOSSGSOSOSOSSSOSSOSSOSOOSOOSOSOOOOOOOoOoSoO 


+ <«<« <= =) w” 

woacoovua “ 7) oa —_J 

- 2044 Za anoovurt Zz -a w@® 

>Ojur00O w sentpees s=<ec FS 

et IBMOwvw VY IBMEOLVtEtEBK@MOU9V8tT BMOv9dvts3s OVewowwwwwa Ooreiw +O 
@#eeeeeee#e@eé@¢ 6666 Ow § 6 66 6 8 ees es § €MwvaAwaaaadaerury H-NUNNooOZa Bo 
OOOO OCOCOCOCOCOCOCOCOOCOCOaZoOoCCoOOoOO Ae00CCOCOO ji<e>a>>>>>r> 1 1 1 ett Or ‘s6 
Cd ed ed dl ed dn ed el ed ed ed ed ed ed ed ed om | Ce) ee | el el ot eh ae bh ee eh 
@#eeeepeseses @8eeee 6 Oe 68 8b 6 6 8 @tettit)s’ Mew Qooveccodo00djjIjeZf 5253s Hor Ee 
VVVOTtITTITTT IIIs jitEetBSIBIIBIsBssBuwwww ft) srteetrerererertee teeta klk kt oe | | 
eetpecpeeeaeeeeeeeee ec eee’ AN Ie OOOO MM eM MMM UU IO Bt Or ee 
FF DODD DDDDKHMHMHMMAHARARHRHAGHAAAAPHAAAOGA | Cac 
AMMMMANMNVWANMVHVMMHMHVMMMVWMVVVHKVKVNYNYDD3D3D3D3DDdDECOGOGOOVOVVOVOUVOVYVVUVUYVEZOSCO 
CPU a ts tt ttt © OO OO OO OMUMNNMNVMHKMHUNMMMNMMHKHMNNMNKNHMNNNYEE II 
LOH OKHHHOHGHOGHHKHHHHAAHHHHHOHHHHHHGHAAHOHGHHAGOHOOfHHGAHHoHoAaoOoOooSoeooOWwWwb.uu 


B89 9S S88 SS SSNS SSSSS DVN UNNI NINN 
OOCOOSOOSOSSOSSSSSOSSOSSSOSSSOSOSSSSSSOSSSOSSSSOSSOSSOSoooo 


oO 
« @aeaeetaeancaeaacaaaaacacaacaacaacaca«ca¢a¢cacaacaacca 
Seer eee eee eOer eee ee MOK OVO WOtO- ODOR NOU DOM OP MNUNF Mov 
Sete eee eee etOeR eke € OUMVUTNOUMMS OPIMvoeOVuwu srr Oowrwnm<covrswe 
Se eee eee eee eOe eee ee & FEOOWNTORM—- VUMAWCOORR.KLRR.ODDMOWCODVOWIO DOW 
See FEHFOS EEE EEE FE QOOOQOOOOMMMMMMMIMMIMMiNy 
SeeeeeeeeeeezeezeOeeaeeeeaee Bag 9 9 899 99999998 SSSSSSSSSSsssssssss 
See eee eee FOe FFF HEH FEQOOOOOOCOCOCSCCOCSCSOSCOOCOSOSOOOSSOOSOSSOSOSOOSOSOSOSS 
Seeeeeee eee ezeOeeneenze $SSSSSSSSSSSSSSSSsSssssssssssssssssss 
Se eee eeeeeneezeOe Beez ez & FEOOCOOCOOCOCOCO OOCCOCOCOSOSSOOoOOOoOOSoOooooo 
eada0c0c0a0 a0 a 0000000000000 
eaacaacaadca eecacaeccacac w 

~ @ ttteett @weeae seeeeenes a << 
ae «@MOeV9UTIj3Za &MOvwVvrTs3s wo atoovs 

‘'@Mieitsttettitt Oroac@ itesestt = ber raged - + tame par put Wat DT UH 
w Metadata etorwe Madea Ou (eepeepeeceoeevpee eee ee ee eee eeeees 
Py. toh RKeTweweeeee MOU VTIZBOOCOCOCOCOwWwwwwwwOICKKddCCoOoOoCoCooo 
@Ow ftitete es a #esepetese Le ee kh hl eh lel ee el ae eed ee el 
a a eel aoe ell cel cel cel oe mre OOOCOCOCOCCSC OCOOCCCOCO titttmddaeaeaem teeter ee eee ee ee 
YONWWWwwwww | Peer eR RE RK RR RR eR RK OO OMMMVVCVCVVCVOOOCCOGOe ee eee OO 
Be es ae as ee ee OO AMNMNMNNYNYM eevee eoeeevrerrerereeeeeeeeeeeereeeeeeees 
IP PAPADP AAC MO PAHAAPAAPAAPAAPAA WWW WW ee ee ee ee ee ee 
ANNMNAMAMMNMKMVWWMWWMWVNNVWVNNVNONOOE & H&K KK &— NMYANNVKHHWMHWHVHHHMVHHVMMNMNNNMNNNNMNMYM 
FFF FFF EEE EF EFF EEE EG III PDT TTT DTT TT PPD PPT 
BOMOMDMODODOMODAAMAAAMA MIAMI MDM MOMDOAMAMAAMMMD GO OCooooeaeooeosoeoeocoeasa esoassasasd 
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; Matrix multiply by a scalar 


<* 
v2 
“”@ 
dat 
— 
53 
VE 
<P 
aw 


RONNIE CIN CIC OIC CI OIC ONION ICICI OI OI ONION OI OI ONION OI OI ONION ONION ONION OI OOOO OIC COINS 
SOooSCSCCOOOSOOOOSSOSOOSOSSOSOSOSOOOOSOOSSSSSSSCOSOOSCOSOOOOOC OOOO OCOOCOOOO 


SoOOOOoooooooooooooooooooooooosoooooooooooooooooooooooooooo 
SOoOOoGOoOOOSOOOOSOOSOSSSOOSSOSOSOSSOSOSOSOSOSOSSSSOSOSOSSOSOSOOOOOOOOOOO 
CQOOOOCOOOOOOOOooooe OCOOOSOOCOOOooOoooooooooooeoo: 


ESS TFS fF pepper SES EE EH tt ttt tye ttt terete pip ese $e i 
pet FFT TTT PRM www MrT ETE ET. @MOMOOMODMOooOCoOCSOe. eevee VUVUUVOOUUTIIIIS 
SSSeseeseesss9 BDOOODOAOOODOOODOOAMDADADMDOAOAAODAADADAOAODAOMOOOOMODOODOOOOOODH 
9 99 99 99 99 99 99 98 498 4) 3 99 9 9H 99 39 9999394939 3939349349933 3393333235535 533553535533555535355555> 
AMNNANAAANANAAMNAMHAMANAAAANAAANAANMAAAAAAAAAAMAMANAMAAMNMAMNAMAMAMAMMNMNMNMNMNMAMNMNAMNMMNNNY? 
eeeseeceeeceeeeeceeeeeeeeeeeeeeeereeeeeeeeeeeeeeeeeeeeeeeese ee 6 8 
ath a eh hh el eh al eel al eth el el el gh eh gl eel eel eh gd ged 1 1 1 1 1-1-1 - 7-1-1 -1-7- 1-7-0 - 7-9-7 - 7-7-9 - 0-7-7 - 7-7-7 - 7-7-7) 
AMNAMNAAMNNANANMNNAMNAMNANNMNNNNYN 2 2228222222222 22222 2222 e ZZ IS 
LL III OI OI OI OSI OI OI OI OI OI OI OI OI OI OI OI OI OI OI OOOO ONIONS 
eeeeceeceeceoeceeceeceeeeeoeoeeoeeeeeeeeeeseeeeoeeeeeeceeeeee eee eel 
DOOOCOOCoCoCoOoCoVaeoooooooooooooooooooooocooocoooocoocoocoooooooooo 
Sooooooeoooooooooooooeeeooooooooooooooooooooooooocooeooooo 
Std s 444 4 4 4 4 J I I I J I 4 J I 4 J I I I HI I I I I I I I I I I I I I I I I I I I I I St I 


COOOCOCOOOOSOSOSOSCOGSOOOOOOSOOSOSOSOSSOSOSOSSOSOSSOSOSOSOSSSOSOSOSSSOSOSSOSSOSOoOoOoOo 


@aacoaaacacacaancaacaacaacacaeacacaeacacacacaaacaacaeaancaacaacaacaacacaacaacaca 
WO OMVDODUNUD YOCOM. HOw oO oD OWNr AML OO OOS OR — WIN DMOUNA 100 & << e— COO 100 


FLOAT-TO_WORD 
GFLOAT 
GFLOAT_T0_BYTE 
GFLOAT~ 

HFLOAT 
HFLOAT_T0_BYTE 
INIT. 
INIT~TWO-SUBS 
LONG 
LONG_TO_BYTE 


BASSMAT_SCA_MUL 
Symbol fEablé 


LOO 
LOWER_BND1 
LOWER BND2 
MTHSDINT_R4 
SAVE_SCACAR 
SCALAR 
SCALAR_DTYPE 
SEPARATE_DTYPES 
SF SL SAVE _FP 


STORE —~HFLOAT 
STORE ~LONG 
STORE WORD 
UPPERTBND1 


; Matrix multiply by a scalar 15-SEP-1984 
vies Pd Pease 7 


OO00F R 
st f 
BE R 
Al8 R 
gz8 R 
15C R 8 
0 BAeee R 
oats R 0 
see 
met 
setae t 
0001161 R 
00000985 R 0 
00000004 
00000000 
Reekeeee x 00 
0000000C 
00000004 
00000008 
0000001C 
Q000007F R 02 
0000000C 
0000000C 
00003856 R if 
00003CB9 R 0 
0000385C R 02 
OOOO3DCC R 02 
OOOO3ED7 R 02 
QOOO3SA5SA R 02 
00003958 R 02 
00000008 
0000086A R Og 
QOO00089F R 0 
QOOOOCDD R 02 
QOOOOBCC R 02 
ss 49 43 R 8S 
00000F R 0 
QOOOOABB R 02 
OOOOO9AD R 02 
+- a + 
! Psect synopsis ! 
Allocation PSECT No. Attributes 
00000000 ( 0.) 00 ¢ OQ.) NOPIC USR CON ABS 
00000000 ( 0.) O1¢ 1.) NOPIC USR CON’ ABS 
QOOOO3FBC (16316.) 02 ¢ 2.) PIC USR CON” REL 


CL N 
CL NOS 
CL 


10:30:56 Feasntc. see 


OSHR 
HR 
SHR EXE 


NOEXE NORD NOWRT NO 
EXE RD WRT N 


cro V04-00 
JBASMATSCA.MAR; 1 
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(6) 


VEC BYTE 
OVEC BYTE 


RD NOWRT NOVEC LONG 


BASSMAT_SCA_M ; Matrix multiply by a scalar 7% 15-S 9 138% $3: 3}; 9¢ or der o V04-00 Page 84 


VAX=11 Macrs i Statistics 6-S BASRTL.SR SBASMA TSCA.MAR; 1 (6) 


$¢oaemeanocae Seen ew eaoerresnswa $ 


! Performance indicators ! 


term mmo mem arn e ee semen een + 


Phase Page faults CPU Time Elapsed Time 
Initialization ; 00: 0:00 -06 0: 0:00.29 
zosnend processing 3 00: 0:32:81 0: 9) -$! 
Synbol canta tore sod 00: 00:01-43 HABE 
Seetel tebte euteut $8800; 6:33 §:00:60:6 
Psect synopsis output 3 00:00:00. § 88:80: 806 
Cross-reference output 4 4 Sho a 8:00:88 «8 
Assembler run totals 1179 00:00:44.20 00:01:38.01 


The working set Limit was 2000 pages. 

239417 bytes (468 pages) of virtual memory were used to buffer the intermediate c 

There were 50 pages of symbol table space allocated to hold 419 non-local and 573° eh symbols. 
1683 source Lines were read in Pass 1, proeyc ing, > 54 object records in Pass 2. 

40 pages of virtual memory were used to define 11 macros. 


tec wemre ne een en wma n oe mera aomoe +f 


! ; Macro Library statistics ; 


Macro Library name Macros defined 
_$255$DUA28: CBASRTL.OBJ JBASRTL.MLB; 1 2 
“$255$DUA28: (SYSLIBISTARLET.MLB;2 5 

TOTALS (all Libraries) 7 


493 GETS were required to define 7 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:BASMATSCA/0BJ=0BJ$:BASMATSCA MSRC$ :BASMATSCA/UPDATE=(ENHS:BASMATSCA) ¢L I | 


L EQUIPMENT CORPORATION 


ENTIAL AND PROPRIETARY 


0027 Vaxsums va-o C 


IGITA 
ONFID 


